~ interface projects 
for the apple li 


INTERFACE 
PROJECTS 
FOR 

THE APPLE I 


As их Prentice-Hall, Inc., Englewood Cliffs, New Jersey 07632 


Library of Congress Cataloging т Publication Dota 


Hallgren, Richard C. 
terface projects for the Apple II. 


“А Spectrum Book." 
Includes index. 


Ë < т Computer interfaces. 2. Apple II (Computer) 
. Title. 

ТК7887.5.Н34 621.3819 592 82-3748 

ISBN 0-13-469395-7 AACR2 

ISBN 0-13-469387-6 (pbk.) 


This Spectrum Book is available to business and organizations 
at a special discount when ordered in large quantities. For 
information, contact Prentice-Hall, Inc., General Publishing 
Division, Special Sales, Englewood Cliffs, М.]. 07632. 


(O 1982 by Prentice-Hall, Inc., Englewood Cliffs, New Jersey 07632. 

All rights reserved. No part of this book may be reproduced in any form 
or by any means without permission in writing from the publisher. 

A SPECTRUM BOCK. Printed in the United States of America. 


109 87 654 32 1 


Editorial/production supervision by Kimberly Mazur 
Manufacturing buyer: Barbara A. Frick 


ISBN 0-13-ЧЬ9395-? 
ISBN 0-Ъ3-469387-Ь iPBK.) 


Prentice-Hall International, Inc., London 
Prentice-Hall of Australia Pty. Limited, Sydney 
Prentice-Hall Canada Inc., Toronto 

Prentice-Hall of India Private Limited, New Delhi 
Prentice-Hall of Japan, Inc., Tokyo 

Prentice-Hall of Southeast Asia Pte. Ltd., Singapore 
Whitehall Books Limited, Wellington, New Zealand 


Q + G N — 


CONTENTS 


INTRODUCTION 1 

REVIEW OF DATA TRANSFER FORMATS 3 
SAMPLING THE EXTERNAL WORLD 21 
DIGITAL TO ANALOG CONVERSION 70 


UTILIZATION OF THE APPLE TWO IN SERIAL 
APPLICATIONS 78 


BIOFEEDBACK 101 

CONTROLLING A VIDEO PLAYBACK DEVICE 117 
DATA ANALYSIS OF SAMPLED SIGNALS 141 
APPENDIX A: CONSTRUCTION TECHNIQUES 152 
APPENDIX B: OPERATIONAL AMPLIFIER THEORY 158 
APPENDIX C: POWER SUPPLIES 168 

INDEX 171 


Richard C. Hallgren, Ph.D., is an assistant professor at Michigan 
State University. He has written numerous articles and books, 
including INTERFACE PROJECTS FOR THE TRS-80, published by 
Prentice-Hall. 


INTRODUCTION 


The rapid expansion of the electronics industry and their ability 
to mass produce reliable, large-scale integrated circuits has led to 
the reality of scientific calculators and multifunction digital 
watches for under $20 and “personal computers" starting from 
$200. In 1971 the Intel Corporation had the honor of initiating this 
revolution by introducing the first commercially available micro- 
processor. While the performance of this device was limited by its 
relatively slow central processing unit and its use of a 4-bit data 
bus, its acceptance was so dramatic that within a two-year period 
the cost of a single unit had dropped from $200 to under $20. 
Today, itis a rare individual who does not have a microprocessor 
(if not a personal computer) of some type in his or her home. 
As I have talked to owners of personal computers, it has 
become apparent that there is a certain group of individuals who 


1 


2 


Introduction 


would liketo use their machines as extensively as is possible, both 
at home and at their place of employment. This inevitably results 
in the need for interface circuitry to allow the computer to be 
connected to external devices allowing users to monitor and con- 
trol their environment. On the basis of the response of readers to 
several articles that I have written, I have come to the conclusion 
that there is a great need for a book that covers not only the theory 
behind interfacing a computer to external devices but also gives a 
broad selection of interface circuits that can be built and expected 
to work. What I have attempted to do is to provide you, the reader, 
with a number if examples of interface circuits ranging from the 
very simple to the somewhat complicated. I have included soft- 
ware for each circuit and can assure you that both the hardware 
and the software have not only been tested together but have been 
used in some practical area of application. The result is a docu- 
ment that explains the theory behind computer interfacing and 
gives you the choice of either building the circuit as is or modify- 
ing it to meet your specific needs. The hardware for these projects 
was designed and the components selected so that construction 
and check-out would be a straightforward matter. The circuits 
have been chosen to offer something of interest and application to 
a broad range of individuals: the hobbyist, the experimenter, the 
manager of a manufacturing plant, and the engineer or scientist in 
a research facility. The intent being to enable people to more fully 
use the computational and control capabilities of their personal 
computer in a practical and interesting way. 

The book assumes that readers have a fairly good under- 
standing of the commands in Applesoft BASIC, and have written 
some of their own programs. Since some of the supporting soft- 
ware will be using 6502 machine code, the reader is encouraged to 
become familiar with the 6502 instruction set. Programing exam- 
ples using both Applesoft and 6502 machine language have been 
provided throughout the book. While construction of the circuits 
is straightforward, it should be understood that a certain amount 
of experience, and a certain level of expertise is expected. Pre- 
vious construction of a commercial kit would probably qualify 
most individuals. So, with all this in mind, let's get started with 
the job of connecting your Apple II to the outside world. 


REVIEW OF 
DATA TRANSFER 
FORMATS 


BASIC INTERFACE CONCEPTS 


Before we get into actual circuit designs, we need to spend some 
time reviewing basic interface concepts. Even experienced circuit 
designers should read this section to become familiar with ter- 
minology that will be used. 

We can define an input/output (I/O) port as a collection of 
electronic circuits, under the control of the computer, which 
routes data to and from an external peripheral device. The key 
words in this definition are data and external. The route by which 
the data flow to or from the external device is called the port. A 
line printer is an example of an external device; the computer 
sends characters to be printed to the printer and, in some cases, 
the printer sends control signals back to the computer. The pur- 
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pose of these signals is to regulate the flow of the data. This 
interaction is called handshaking. 

Ports can be constructed so that data are handled in either a 
serial or a parallel format (Figure 2.1). | 

Parallel transfer of data involves the mass transfer, ata given 
point in time, of several bits of data, where the number of bits 
transferred is usually equal to the word size of the computer. For 
the Apple II this is equal to 8 bits. In general, the number of bits 
transferred at one time will be equal to the size of the data bus. For 
example, if we were working with a Z8000, which has a 16-bit 
data bus, a parallel transfer would involve 16 bits. When high 
rates of data transfer are desired, such as data transfer between a 
computer and a floppy disk, the transfer is usually handled with a 
parallel format. Computers handle parallel communication rela- 


FIGURE 2.1 Comparison of parallel and serial format. The clock impulse is used to signal the 
external device that the signals are stable. For both examples, the data word being trans- 
mitted is binary 10011001. 
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tively easily and, even though multiconductor cables are re- 
quired, the total expense is not great because the distance between 
devices is usually quite short. 

Serial transfer of data involves transmitting individual bits 
of data, one bit at a time. Microcomputers do not normally com- 
municate in a serial format, so there is usually not a single ma- 
chine language command that facilitates this type of operation. 
Therefore, we need to add either a software subroutine or a new 
piece of hardware to accomplish a serial transfer of data. Such an 
addition results in increased system expense, but gives the capa- 
bility of transferring data over increased distances at relatively 
high data rates. The Electronics Industry Association (EIA) RS- 
232C electrical specification for serial transfer of data is the stan- 
dard for industrial applications. This specification defines the 
following voltage levels: A logic level 1 is called a mark and is 
considered to be any voltage level more negative than — 3 volts. A 
logic level 0 is called a space and is considered to be any voltage 
level more positive than +3 volts. In general, designers use +12 
and — 12 volt levels for the logic 0 and logic 1 states. In addition to 
specifying voltage levels, the EIA also defines the standard RS- 
232C connector to be a 25-pin, D subminiature type (commonly 
referred as a DB-25). The pin assignments and their functions are 
listed in Table 2.1. 

Before we look at specific examples, we should take a look at 
the architecture of the 6502 to determine how we can communi- 
cate in an orderly manner with several peripheral devices that 
may be connected to the same data bus and to the same address 
bus. The Apple II computer uses a 6502 type microprocessor to 
perform the logical, mathematical, and decision-making opera- 
tions necessary for high-speed operation of the computer. This 
microprocessor is an 8-bit device which combines the bus struc- 
ture of the 6501 microprocessor (16-bit address bus, 8-bit bidirec- 
tional data bus, and two interrupts) with an instruction set that 
includes over 150 different commands. The bidirectional data bus 
is used to transfer information both to and from the central proc- 
essing unit. The 16-bit address bus has the capability of uniquely 
defining 65,536 addressable locations. The 6502 generates several 
control signals which are used both internally and externally to 
supervise and manage the flow of information. Since data can 
only flow in one direction at a time, and since the data are usually 


TABLE 2.1 EIA standards for 08-25 connector pin assignments when used for com- 
munication between RS-232C systems. 


PGND - Protective Ground 
This is chassis or equipment ground. It may also be tied 
al d. 


TD - Transmit Data 

This is the serial data from the terminal to the remote 

receiving equipment. When no data is being sent it is in 
ki 1) condition. 

RD - Receive Data 

This is к = data from the remote equipment which is 


RIS - Request to Send 

Controls the direction of data transmission. In full- 
duplex operation an "оп" sets transmit mode and an "off" 
sets non-transmit mode. In half-duplex operation an 
"on" inhibits the receive mode and ап ''off" enables it. 
CTS - Clear to Send 

Signal from the modem to the terminal indicating ability 
to transmit data. Ап "оп" is "Ready" and an "off" is 
"not ready." 


Signal from the modem to the terminal. Ап "оп" condition 
indicates that the modem is ready. 


CD - Carrier Detect 
Ап "оп" indicates reception of a carrier from the remote 
$ "off" indicates no carrier is being received. 


"On" connects the communication equipment to the commu- 
nications Channel; "off" disconnects the communications 
l. 


An "on" indicates that a ringing signal is being received 
on the communications channel. 


directed to a specific device or memory location, these control 
lines provide an essential coordinating function. 

Figure 2.2 shows the pin configuration for the 6502. The 
6502 belongs to the one-address architectural class of microproc- 
essors; that is, all memory-related instructions refer to a single 
memory location. The direction of all data transfers is controlled 
by the READ/WRITE* (R/W*) line. When this line goes low, all 
data transfers will occur in the direction from the processor to 
memory. When it goes high, all data transfers will occur in the 
direction from memory to the processor. The timing of all data 
transfers is controlled by the system clock. The clock system used 
by the 6502 is referred to astwo-phase; itis most easily thought of 
as two nonoverlapping square waves. When the microprocessor is 
reading a data byte from memory, the address of the desired 
memory location is placed on the address bus during the phase 
one clock pulse. Information stored in that particular memory 
location is strobed onto the data bus and into the accumulator 


MICROPROCESSOR 


FIGURE 2.2 6502 pin configuration. 


during the phase two clock pulse. Data being written to memory is 
handled by a reversed set of operations. 

Fortunately for the individual who wishes to interface the 
Apple II to external devices, the designer of the computer has 
provided eight peripheral-board connectors on the mother board. 
Having these connectors on the mother board allows you to place 
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TABLE 2.2 Peripheral ИО location address assignments. 


зіргі тенә 


C080-CO8F Device Select #0 Pin #41 (DS*) on the 
С090-С09Е Device Select #1 selected peripheral 
0- COA connector goes low 
during phase two of 
the clock. 
COD0- CODE 
COEO-COEF 


COFO-COFF Device Select #7 


any interface boards that you construct inside the computer’s 
case, and permits you to use the Apple’s power supply. The 
peripheral-board connectors give the hardware designer access to 
all address, data, and control lines. In addition, certain control 
and address lines have been decoded to provide the designer with 
a device select (DS*) signal. What this means is that each periph- 
eral connector has a unique range of address locations that will 
result in a low output on the DS* line. Since DS* goes low during 
the phase two clock pulse, it is convenient to use this as a data 
strobe pulse during either a READ or WRITE operation. Table 2.2 
shows the address locations that are assigned to each of the eight 
peripheral connectors. 

Since each peripheral connector can address up to sixteen 
devices, and since we will not exhaust this capability on any one 
of the projects that you will be building, I will limit my comments 
here to one peripheral connector, specifically peripheral I/O loca- 
tion 7. In Chapter 5, however, I will design the digital plotter 
interface so that it resides in I/O location 5. I will do this so that the 
high speed A/D converter and the digital plotter can be used to 
digitize and plot data without having to switch the physical 
location of the circuit boards. Figure 2.3 shows a simple but 
effective method for decoding the four least significant bits of the 
address bus into sixteen unique control lines. For normal opera- 
tion, the INHIBIT control line would remain low. Upon execution 
of either a READ or WRITE command, the device control signal 
(DS*), connected to the STROBE control line, would be used to 
strobe the current contents of the address bus into the decoder. 
The decoded output would then be used to indicate to a specific 
external circuit that the data bus was available for its specific use. 
In the next section we will see how we can use the R/W* control 
line to direct the flow of data to and from our interface projects. 


FIGURE 2.3 4-16 line address decoder. Each device is selected by a unique combination 
of the address lines А0-АЗ. 
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PARALLEL DATA FORMAT 


Transmission and reception of data in a parallel format combines 
the advantages of high transfer rates and low cost. As mentioned 
earlier, parallel data transfer involves the mass movement of sev- 
eral bits of data at one time. It becomes a relatively straightforward 
task to construct both input and output ports since all the control, 
data, and address lines that we will need are available on the 
Apple II peripheral I/O connector (see Figure 2.4). Table 2.3 lists 
the signals appearing on this connector and their functions. Fig- 
ures 2.5a and 2.5b show examples of practical circuits which 
could be connected directly to Фе ГО connector 7, providing one 
8-bit input port and one 8-bit latched output port. To transfer data 
from the accumulator to the latched output port, you need only to 
perform the BASIC statement POKE-16143,X or the machine lan- 
guage commands ГОА #$X and STA $COF1. The microprocessor 
performs the following bit transfers when you execute either of 
these commands: 


1. The device address (COF1) is strobed onto the address bus. 
2. The contents of the accumulator (X) are strobed onto the data bus. 


TOP VIEW FIGURE 2.4 Output pin configuration for the 
(Back edge of PC Board) Apple ll peripheral ИО connector. Refer to 
Table 2.3 for a description of each pin. 
GND 26 25 «45V 
IMA IN 27 24 IMA OUT 
INT IN 28 23 INT OUT 
NMI* 29 22 DMA* 
IRQ*30 21 RDY 
RES*31 20 I/O STORE* 
INH*32 19 N.C. 
-12V 33 18 R/W* 
-5V 34 17 A15 
N.C. 35 16 А14 
7M 36 15 A13 
Q3 37 14 A12 
$1 38 13 All 
USER 1 39 12 A10 
$0 40 11 A9 
DEVICE SELECT*41 10 A8 
D7 42 9 A7 
D6 43 8 A6 
DS 44 7 AS 
D4 45 6 A4 
D3 46 5 АЗ 
D2 47 4 A2 
Di 48 3 Al 
DO 49 2 A0 
1 


+12V 50 I/O SELECT* 


TABLE 2.3 Functional description of pins on the Apple II peripheral /О 


connector. 
Peripheral I/O Select Line 


[Address Output — — | 


System Read/Write Strobe 

Peripheral I/O Strobe Line 

Disables Internal Adr Decode 
L— — jeviss Select lá — 


Positive 12-Volt Supply 


"*' means logical "Я" true input or output. 
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Note: 


Since the data are valid for only a few clock cycles (perhaps 500 
ns.), a set of clocked flip-flops (IC3 and IC4) are provided so that 
the data are latched and consequently stable, until the next com- 
mand to write data to this port is executed. The circuit works in 
the following manner: 
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FIGURE 2.5a Circuit diagram of a typical parallel output port. Performing a POKE -16143,16 
would cause the DS* and R/W" control lines to go low, address line AO to go high, and 1646 to 
be latched into the output register. 
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FIGURE 2.56 Circuit diagram of a typical parallel input роп. Performing а PEEK (-16143) 
would cause the DS” control line to go low, the R/W* control line to go high, address line AO to 
go high, and the data on the input lines to be transferred into the accumulator. 
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1. Whenever address line AO is high and the DS* line and the R/W* 
line are low, there will appear an output strobe pulse on pin 12 of 
IC1. 

2. Whenever this strobed output pulse appears, the contents of the 
data bus will be transferred into the clocked flip-flops, and will 
appear on the latched data output lines. 


External devices transferring data into the computer can be con- 
nected directly to the data bus, but to add an additional margin 
of safety (that is, to help keep you from "smoking" your com- 
puter), I have included a 3-state buffer. The 3-state buffer is used 
as a gate which allows signals from the peripheral device to be 
placed on the data bus at an appropriate time. To transfer data 
from an external device into the accumulator, you need only to 
perform the BASIC statement PEEK(-16143), or the assembly lan- 
guage command LDA $COF1. The microprocessor performs the 
following bit transfers when you execute either of these com- 
mands: 


1. The device address (COF1) is strobed onto the address bus. 
2. Thecontents of the data bus are strobed into the accumulator (A). 


The circuit works in the following manner: 


1. Whenever address line AO is high, control line DS* is low, and 
control line R/W* is high, there will appear a strobe pulse on pin 12 
of IC1. 

2. Whenever this strobed input pulse appears, the 3-state buffer will 
connect the data input lines to the data bus. 


SERIAL DATA FORMAT 


When considering a computer interface project involving a fairly 
large distance between the computer and the device to be inter- 
faced, we begin to realize problems in trying to use a parallel data 
transfer scheme. First, there is the expense and inconvenience of 
running a multiconductor cable over long distance. There is also 
the problem of noise which gets introduced into the data, control, 
and address lines. While this noise can be reduced with filters, or 
current level signals can be used, it is often more convenient to 
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use a serial format for the transmission of control and data bits. 
With serial transmission, individual bits are transmitted over a 
pair of wires one bit at a time. The receiving device collects the 
bits and reconstructs them into a single computer word which, for 
the Apple II, is equal to 8 bits. Since the computer normally 
processes data in a parallel format, the transmitting device must 
perform a parallel-to-serial conversion, and the receiving device 
must perform a serial-to-parallel conversion. Obviously, the 
transmission speed and the bit format must be well-defined, and 
there must be some way to synchronize the serial bit flow so that 
the receiving device knows where each data word begins. The 
most common format for serial transmission is called asyn- 
chronous-serial. Because it is self-clocking—that is, it contains а 
special bit pattern that allows the receiving device to know 
exactly where a new data word begins—the cable connecting a 
peripheral device with the computer needs to have only two 
signal lines and one ground line. Figure 2.6a shows the format for 
the transmission of a data word in an asynchronous-serial format. 
The START bit, a logic 1 to logic 0 transition, is used to alert the 
receiving circuitry that a new data word in going to be sent. The 
receiver waits for one-half of a bit period and then samples the 
input again. If the input line is still a logic 0, the receiver assumes 
that it has detected a “real” START bit and nota fluctuation due to 
noise on the line. The receiving device then waits one bit period 
and samples the input line to determine whether data bit 1 is a 
logic 1 or a logic 0. By periodically waiting one bit period and 
sampling the input line, the remainder of the data bits are ob- 
tained. The two STOP bits then signal the receiving device that it 
has reached the end of the data word. Having transferred the data 
word into the computer, the device starts looking for the next 
START bit. Figure 2.6b shows the actual bit pattern that results 
when the data word 10011101 is transmitted. 


FIGURE 2.6a Typical asynchronous-serial bit pattern for the transmission of an 8-bit 
data word with 2 stop bits. 
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FIGURE 2.66 Logic levels plotted as a function of time during the asynchronous-serial 
transmission of the 8-bit data word, 100111012. 


The asynchronous-serial protocol allows the use of either 
5,6,7, or 8 data bits along with either 1 or 2 STOP bits. The 
examples we will be using will be formatted so as to transmit and 
receive 1 START bit, 8 data bits, and 2 STOP bits. The bit transfer 
rate can be set to 110, 150, 300, 600, 1200, 2400, 4800, and 9600 
bits per second; the actual value depending upon the application. 

Figure 2.7 shows a circuit which converts TTL voltage levels 
to RS232-C voltage levels, and which can be used with the prog- 
ram shown in Listing 2.1 to accomplish a parallel-to-serial output. 


FIGURE 2.7 TTL to RS232-C interface. 


IC2 IC4 
MC14013 MC14049 


[Number | Type | +5 | +12 | -12 |GND| 
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LISTING 2.1 Subroutine for parallel-to-serial output. Program assumes 
that the character to be sent will be in the А register. 


30F 08 PHP SAVE STATUS 

310 A0 BO LDY %50В 11 ВІТ5 

312 18 CLC CLEAR CARRY 

313 48 PHA SAVE A REGISTER 
314 BO 07 BCS $31D 

316 А9 00 ША #$00 SEND A SPACE 

318 8D Fl СО STA 5с0ғі 

31B 90 05 BCC $322 

310 А9 01 ША #801 SEND А MARK 

31F 8D Fl CO STA $С0Р1 

322 20 40 03 JSR $340 JUMP TO DELAY 

325 68 PLA RESTORE А REGISTER 
326 6A ROR ROTATE A REGISTER 
327 88 DEY ALL BITS SENT? 
328 DO E9 BNE $313 BRANCH IF NOT 

32A 28 PLP RESTORE STATUS 
32B 60 RTS RETURN 

340 А9 4D LDA #$4D LOAD A REGISTER 
342 48 PHA SAVE A REGISTER 
343 A9 20 ША %520 LOAD A REGISTER 
345 4A LSR SHIFT A REGISTER 
346 EA NOP 

347 90 ЕС BCC $345 

349 68 PLA RESTORE А REGISTER 
34А Е9 01 SBC #$01 SUBTRACT 1 

34C DO F4 BNE 5342 

34E 60 RTS RETURN 


When a STA $COF1 of machine language command is executed, 
the contents of the least significant bit of the (data bit 0,) ac- 
cumulator are latched into the output of the D-type flip-flop (IC2). 
Figure 2.8 shows a flow chart for the TTL to RS232-C program. 

Figure 2.9 shows a circuit which can be used to convert 
RS232-C voltage levels to TTL levels, and which can be used with 
the program shown in Listing 2.2 to accomplish a serial-to- 
parallel conversion. When a LDA $COF1 machine language com- 
mand is executed, the voltage level appearing on the SERIAL IN 
line will be strobed into data bit D7 of the accumulator. Figure 
2.10 shows a flow chart for the RS232-C to TTL program. Timing 
for both subroutines results in a baud rate of 300 bits per second. 
The serial output subroutine (Listing 2.1) expects the character 
which is to be sent to be stored in the accumulator. The serial 
input subroutine (Listing 2.2) will terminate with the received 
character displayed on the video monitor. We will put both of 
these circuits to use in Chapter 5 where we will see how to use the 
Apple II in serial applications. 
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FIGURE 2.8 Flow chart for the TTL to RS232-C program. 
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FIGURE 2.9 RS232-C to TTL interface. 
LISTING 2.2 Subroutine for serial-to-paralle! conversion. Program dis- 
plays the received character on the video display. 
330 A9 4D LDA #$4D LOAD A REGISTER 
332 48 PHA SAVE A REGISTER 
333 A9 20 LDA #$20 LOAD REGISTER 
335 4А LSR SHIFT RIGHT 
336 90 FD BCC $335 JUMP IF NOT ZERO 
338 68 PLA RESTORE A REGISTER 
339 E9 01 SBC #$01 SUBTRACT ONE 
33B DO F5 BNE $332 JUMP IF NOT ZERO 
33D 60 RTS RETURN 
33E EA NOP 
33Р ЕА МОР 
340 А9 00 LDA #$00 LOAD А REGISTER 
342 8D 80 03 STA $380 TEMP А REGISTER 
345 A2 08 LDX %508 8 DATA BITS 
347 AD Fl CO LDA $COFl GET RECEIVED CHARACTER 
34A 2A ROL ROTATE LEFT 
34B BO B3 BCS $340 NO CHARACTER RECEIVED 
34D A9 26 LDA #$26 1/2 CHARACTER DELAY 
34F 48 PHA 
350 A9 20 LDA #$20 
352 4A LSR 
353 90 FD BCC $352 
355 68 PLA 
356 E9 01 SBC #501 
358 00 P5 BNE $34F 
35A 20 30 03 JSR $330 JUMP TO DELAY 
35D AD Fl CO LDA $COFl GET CHARACTER 
360 29 80 AND %580 GET MSB 
362 0D 80 03 ORA $380 OR A REGISTER WITH TEMP 
365 8D 80 03 STA $380 SAVE IN TEMP 
368 18 CLC CLEAR CARRY 
369 6E 80 03 ROR $380 ROTATE TEMP RIGHT 
36С СА DEX ALL BITS RECEIVED? 
36D DO EB BNE $35А BRANCH IF NOT 
36F 09 80 ORA 8580 SET MSB 
371 c9 со СМР #$CO CHECK FOR CONTROL CHARAC 
373 FO 03 BEQ $378 JUMP IF NOT 
375 20 FD FB JSR SFBFD DISPLAY ON VIDEO 
378 20 30 03 JSR $330 JUMP TO DELAY 


378 4c 00 03 JMP $340 GET NEXT CHARACTER 
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FIGURE 2.10 Flow chart for the RS232-C to TTL converter. 
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SAMPLING THE 
EXTERNAL WORLD 


Now that we have covered some background material relative to 
the operation of the Apple II computer, we can proceed to the 
"fun" part of computer operation, the part that involves the evalu- 
ation of a need, and the construction of a circuit to meet that need. 
We will be progressing from examples that are very simple to 
examples that are somewhat complicated; with the confidence 
that once you can build and use simple circuits, you will be able to 
build and use the more complicated ones. In Appendix A I have 
made a personal appraisal of several construction techniques 
which you may want to consider; it may be to your advantage to 
review this material at this time. 
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STATUS OF A BINARY SIGNAL 


For some applications we will want to be able to sample an input 
port to determine the status or state of an external device. For 
example, we might want to know if a device was turned on, a valve 
opened, or a switch closed. Figure 3.1 shows a schematic of a 
circuit which will allow you to test the state of six switches. When 
a X= PEEK(-16143) BASIC command is executed, a voltage level, 
which is a function of whether each individual switch is open or 
closed, will be strobed into the computer. The variable X can then 
be decoded to determine the status of each switch. You might use 
such a circuit to allow external control of a program which is 
being executed, or to take an action which would be consistent 
with the state of the switch. The switches might be simple toggle 
switches mounted on a panel, or they might be relay switches 
associated with some automated process that you want to moni- 
tor. Figure 3.2 shows a flow chart for a BASIC program which will 
test the status of each switch and display that status on the video 
display. Listing 3.1 shows the program with comments. This 
program is intended to be called as a subroutine, and is set up so 
that if the status has not changed, control will return to the calling 
routine. 

While I have used mechanical toggle switches for this exam- 
ple, the application could be easily extended to the following: 


1. Water level sensing switches 

. Displacement sensing microswitches 

. Light sensitive, photoswitches 

. Temperature sensitive, bimetallic switches 
. Motor relay switches 


л us c м 


An advantage of using the computer to sense and respond to 
the status of a switch lies in its ability to be reprogrammed easily 
when the application changes. 


ANALOG-TO-DIGITAL CONVERSION 
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Background 


There are many applications where we will want to have our 
computer system “measure” some parameter which varies as a 
function of time. In most cases, we will be using some type of 
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FIGURE 3.1 Schematic of switch status input port. 
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FIGURE 3.2 Flow chart of switch status program. 


transducer which takes a physical parameter such as temperature, 
pressure, strain, or position, and converts it into an electrical 
voltage or current. While computers are quite proficient when 
handling binary voltages, they are not directly able to handle the 
type of analog voltages that will be coming from the transducers 
we will be using. To resolve this problem we need to build an 
interface called an analog-to-digital (A/D) converter. Our design 
criteria will be primarily concerned with determining approp- 
riate values, based on our particular application, for resolution 


LISTING 3.1 BASIC program for determining and displaying switch status. 


100 REM SWITCH STATUS ROUTINE 

102 REM APPLE II, В. HALLGREN, 10-20-81 
104 X120 

110 REM SAMPLE SWITCH STATUS 

112 =PEEK(-16143) 

120 REM STATUS CHANGED? 

122 IF Х>127 THEN Х-Х-128 

124 IF X>63 THEN X-X-64 

126 IF X=Xl THEN GOTO 110 

130 REM DETERMINE SWITCH STATUS 

132 Хі-Х:ІҒ Х>31 THEN D5=1:X=X-32:GOTO 140 


136 D5=0 

140 IF X>15 THEN D4=1:X=X-16:GOTO 150 
142 04=0 

150 IF Х>7 THEN D3=1:X=X-8:GOTO 160 
152 D3=0 

160 IF X>3 THEN D2=1:X=X-4:GOTO 170 
162 D2=0 

170 IF X»1 THEN Dl-1:X-X-2:GOTO 180 
172 р1=0 

180 IF Х=1 THEN DO0-1:GOTO 184 

182 D0=0 


184 IF 00=1 THEN DOS="0N" 

185 IF 00=0 THEN 20$="ОРЕ" 
186 IF 01=1 THEN D1$z"ON" 

187 IF 01=0 THEN Dl$-"OFF" 
188 IF D2-1 THEN D2$="0N" 

189 IF D2=0 THEN р29-"ОҒЕ" 
190 IF D3s1 THEN D3$-"ON" 

191 IF 03=0 THEN D3$-"OFF" 
192 IF D4-l THEN D4$z"ON" 

193 IF D4=0 THEN D4$-"OFF" 
194 IF 05=1 THEN D5$-"ON" 

195 IF 05=0 THEN D5$-z"OFF" 
200 REM UPDATE DISPLAY 

210 HOME 


212 PRINT "dd o de de de de de e ee e e e e e e e eee dee deed ke de e n 
222 PRINT "*" 


226 PRINT RA SWITCH SO IS ";00$ 
{с Mns 
2 PRINT куй SWITCH S2 IS ";D2S 
238 SEINE 21% SWITCH S3 IS  ";D3$ 
TP en аа 
240 КЫН кы SWITCH S5 IS ";D5$ 


248 PRINT "*" 
250 PRINT "X5 dk ERR IRR ERR de eoe ede eee ede eee dee 


299 GOTO 110 


(dR), relative system error, and sampling frequency (F,). We will 
take a look at three examples of A/D converters which are very 
different in design, using separate and distinct processes to per- 
form the analog-to-digital conversion. I will spend the rest of this 
section making general comments that will apply to each exam- 
ple, saving specific comments for the individual circuits. 
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For our purposes, we will define an analog signal as being 
generally smooth, continuous, and analytical, for example, the 
output voltage from a pressure transducer, the output voltage 
from some analytical instrument, or the voltage resulting from 
some physiological phenomenon such as the electrocardiogram. 
We shall define a discrete signal as one which is constrained to 
specific voltage levels, the interval between levels determined by 
dividing the maximum voltage range (V...) by the number of 
possible intervals (K). Consequently, any analog voltage which is 
within the maximum voltage range can be represented as a dis- 
crete quantity, the magnitude being equal to some multiple of dR, 
where dR is defined by Equation 3.1: 


dR = V, 
OK Я Ninex_ 3.1 
k (3.1) 


Resolution 


The function of an A/D converter is to transform an analog quan- 
tity into a digital quantity which can be handled by a computer. 
This transformation usually involves sampling the continuous 
voltage, representing the voltage as a discrete value, and then 
formating this quantity so that the computer can process it. An 
example of a signal represented in both continuous and discrete 
forms is shown in Figure 3.3. In general, we will assume that Y 
axis values are dependent upon X axis values such that Y can be 
expressed as some function of X. 


Y - F(X) (3.2) 


Resolution, as we will be using the term, is related to our 
ability to distinguish between two voltages that have magnitudes 
which are very close together. The smallest magnitude difference 
we can detect will define the resolution of our system. For each of 
the analog-to-digital systems we will discuss, resolution will be 
equal to the magnitude of a unit change in the least significant 
digit of the output of the converter. 


Relative System Error 


Accuracy is related to our ability to determine the actual value of 
an unknown input voltage. Accuracy will be a function of the 
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linearity of the system, gain and offset errors, resolution, and 
magnitude of the signal that we are measuring. In general, the 
main source of system inaccuracy usually results from the neces- 
sity to represent the analog voltage by a discrete quantity. If we 
assume that this is true for the circuits that we will be building, we 
can define relative system error as the ratio of system resolution to 
the magnitude of the voltage being measured. Obviously, for a 
given system, relative system error will be minimized when the 
unknown input voltage is equal to the maximum value that the 
system can handle. 


Sampling Theory 


Since an A/D converter samples an input signal sequentially with 
respect to time, the output voltage (Y) can be expressed in the form 
Y(1), Y(2), and so on. Y(N), where N is equal to the sample 
number. The rate (F,) at which we sample the input signal deter- 
mines the maximum frequency component which can theoreti- 
cally be detected. The sampling rate can be expressed as a func- 
tion of the time between samples by the following equation: 


Е, = 1/dt samples per second where dt-[t/N- 1)- ҢЫ) (3.3) 


The sampling theorum states that we should sample at а rate 
which is at least twice the frequency (f.) of the highest significant 
frequency component that is present in the waveform which we 
will be digitizing. In practice, the sampling frequency should be 
ten times F, to allow you to reconstruct the complex waveform 
from the digital data without having to be overimaginative. Re- 
member that you can always throw out data points once you have 
them if you find that you have sampled at a higher rate than was 
necessary. 

In some applications, you might not be interested in the 
highest frequency component that was contained in the input 
signal, but only in lower frequency components. Aliasing, imper- 
sonation of a low frequency signal by a high frequency signal, 
results from choosing a sampling rate that is too low for the 
frequency components that make up the input signal. Figure 3.4 
shows how a relatively high frequency signal and a relatively low 
frequency signal can share identical sample points, thus making it 
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FIGURE 3.4 Aliasing error caused by inadequate sampling rate. 


impossible to differentiate between the two signals. For applica- 
tions where you will be sampling at rates that are less than 2F., 
you must insert a low pass filter at the input of the A/D converter to 
limit the frequency content and to ensure faithful reproduction of 
the input signal. 


8-bit, Low-speed A/D Converter 


The MC1443 (Motorola Semiconductor Products Inc., Austin, 
Texas 78721) is a high-performance, low-power, three and one 
half digit A/D converter combining both linear CMOS and digital 
CMOS circuitry. This device, when combined with two external 
resistors and two external capacitors, forms a dual slope A/D 
converter featuring automatic zero correction and automatic po- 
larity. By using an indirect conversion technique, the dual slope 
system realizes some of the following positive characteristics: 
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1. Conversion accuracy is independent of component values and the 
clock frequency. 

2. Differential linearity is excellent. 

3. The integration process provides rejection of high-frequency noise 
and averaging of small voltage changes that may occur during the 
conversion process. 


The main disadvantage to the dual slope technique is that the 
analog-to-digital conversion process takes a relatively long time, 
consequently limiting the sampling rate. In spite of this, the 
device is ideal for digital voltmeters, digital thermometers, and 
other such devices not requiring sampling rates over 100 samples 
per second. 

Figure 3.5 has been included to help you understand the dual 
slope conversion process. The actual configuration of the analog 
circuitry is dependent on the polarity of the input voltage during 


FIGURE 3.5 Simplified block diagram for a typical dual slope A/D converter. 
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FIGURE 3.6 Integrator output plotted as a function of time for two different input voltages 
converted by the dual slope process. 


the previous conversion cycle, and it is automatically switched by 
the internal logic circuits. I have chosen to show the analog circuit 
configuration that would be used when a negative voltage is 
connected to the input. When performing an A/D conversion, the 
MC14433 internal control logic first connects the unknown input 
voltage to the input of an integrator for a fixed period of time 
determined by an internal clock (See Figure 3.6 for a plot of the 
integrator output as a function of time.) This results in the voltage 
across the integrator capacitor increasing to a value which is 
proportional to the input voltage averaged over the time interval 
that the input is connected. At the end of this interval, the input to 
the integrator is switched from the unknown voltage to a reference 
voltage. The purpose of the reference voltage is to cause the 
integrator capacitor to discharge at a known rate while a counter 
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FIGURE 3.7 Block diagram of the Motorola MC 1433 3% digit A/D converter. 
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keeps track of the length of time it takes the voltage to return to 
zero. Note that the count associated with a given input voltage is a 
function of the reference voltage and the ratio of the time that it 
takes to charge and discharge the integrator capacitor. In sum- 
mary, the MC14433 uses a ratiometric measurement scheme that 
produces an output reading that is a function of the ratio of the 
unknown input voltage to the reference voltage, where a ratio of 1 
equals a count of 1999. It should be obvious to the reader that 
absolute stability of the reference voltage is necessary to ensure 
reproducible readings from sample to sample. 

Figure 3.7 shows the actual block diagram and Figure 3.8 
shows the pin assignment for the MC14433. This integrated cir- 
cuit operates from standard 5 volt positive (pin 24) and 5 volt 
negative (pin 12) supplies. (See Appendix C for power supply 
circuit configurations.) The absolute value of the input voltage 


FIGURE 3.8 Pin assignment for the MC 14433. 
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FIGURE 3.9 Simple resistive voltage divider 
network. 


can vary between 0 and 1.999 volts. If the magnitude of the input 
voltage is greater than the upper limit of 1.999 volts, you can use 
the voltage divider circuit shown in Figure 3.9 to reduce the 
voltage to an acceptable value. On the other hand, if the input 
voltage is less than .2 volts, you will achieve greater accuracy by 
using a circuit similar to the one shown in Figure 3.10 to increase 
the magnitude of the input voltage. Appendix B has been in- 


FIGURE 3.10 Simple noninverting amplifier. 
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cluded to explain the operation of the amplifier circuits such as 
the one shown in this figure. The frequency of the internal system 
clock of the MC14433 is controlled by selection of the resistor 
connected between pins 10 and 11. Figure 3.11 shows typical 
values for frequency as a function of resistance, and the following 
equation relates the conversion rate (samples per second) to the 
clock frequency: 


Conversion rate = Clock frequency/16,400 (3.4) 


Normal operation of MC14433 permits the conversion of an 
analog signal to a digital signal on a continuous basis, but the 
results of each conversion are transferred to the output latches 
only when an appropriate logic pulse is applied to the DISPLAY 
UPDATE (DU) (pin 9) control line. We can control this transfer of 
data by providing a positive going pulse to the DU line prior to the 
ramp-down segment of the conversion cycle. The data that are 
strobed into the output latches will then be equal to the digital 
quantity that was obtained from the last A/D conversion. 

During the time that the conversion is being performed, the 
status line, END OF CONVERSION (EOC) (pin 14), is low indicat- 
ing that the converter is busy. Upon completion of the conversion 
cycle, this line produces a pulse whose width is equal to one half 
of the period of the system clock. When this output is wired 
directly back into the DU input, the result of every conversion is 
strobed into the output latches. I will use the EOC status line to 
indicate to the computer when a conversion has been completed 
and, consequently, when new data has been strobed into the 
output latches. 

The result of an analog-to-digital conversion is contained in 
the internal output latches in a binary format. However, the data 
are sent to the external world over the data lines (pins 20to 23) ina 
multiplexed, binary coded decimal (BCD) format. 8 bits of infor- 
mation are used to transfer the results of a conversion. The four 
most significant bits (pins 16 to 19) contain the code for a particu- 
lar digit, and the four least significant bits (pins 20 to 23) contain 
the binary value of the digit that is selected. The digit select 
output lines (pins 16 to 19) go high when the respective digit is 
selected, and the data lines then contain the value of the selected 
digit. The digit select timing sequence is arranged so that the most 
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FIGURE 3.12 Digit select timing diagram for the МС14433. 


significant digit (MSD) (one half digit) is selected immediately 
after an EOC pulse. The remaining digits are sequenced as shown 
in Figure 3.12. When the MSD is multiplexed, the data lines 
contain not only the value of that digit but also coded information 
relating to overrange, underrange, and polarity as shown in Table 
3.1. 

Figure 3.13 shows the low-speed, A/D converter circuit con- 
figured for the Apple II. Looking at the upper portion ofthe figure, 
you will see the MC14433 A/D converter. The clock resistor (R,) 
has been selected and the EOC and DU control lines connected 
together so that fifteen conversions per second are being per- 
formed on a continuous basis. All data and status lines to the 
Apple П are isolated through the MC14503 three-state buffers (IC7 
and IC8). IC4, configured as an R/S flip-flop that is initially reset 
by the computer, is set by the MC14433 after an alalog-to-digital 
conversion has been completed. When the Apple II senses this 
change in status, it starts the decoding and data transfer process. 
The 6502 processor speed is high enough to enable one conver- 
sion to be decoded and stored before another conversion begins. A 
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TABLE 3.1 Truth table showing the information format on the multi- 
plexed data lines during selection of DS1. 


Coded Consition BCD to 6 Segment 
of MSD Q3 Q2 Q1 Q0 Decoding 
1 


Hook up 
only seg b 
and c to 


MCD 


Notes for Truth Table 


Q3 - 1/2 digit, low for "1", high for "0" 

Q2 - Polarity: "1" = positive, "0" = negative 

QO - Out of range condition exists if QO = 1. When used in 
conjunction with Q3 the type of out of range condition 

is indicated, i.e., Q3 = 0+ OR or Q3 = 1 + UR. 

The overrange indication (Q3 = 0 and Q0 = 1) occurs when 
the count is greater than 1999, e.g., 1.999V for a reference 
of 2.000 V. The underrange indication, useful for autoranging 
circuits, occurs when the count is less than 180, e.g., 0.180 V 
for a reference of 2.000 V. 


stable reference voltage source is obtained from the output of the 
Analog Devices AD580 voltage regulator (IC6). 

Theright lower section of Figure 3.13 shows the control logic 
that is used to coordinate the transfer of signals to and from the 
computer. The least significant four bits of the address bus are 
decoded by IC1 and are used for on-board addressing. By execut- 
ing an STA $COF2 machine language command, the status control 
line (SC) is forced high, resetting IC4. Performing an LDA $COF1 
machine language command transfers the end of conversion 
(EOC) and overrange (OR) status information into the ac- 
cumulator. Performing an LDA $COF1 machine language com- 
mand transfers the digit select code and the BCD value of the 
selected digit into the accumulator. 

The software portion of the low speed A/D converter has been 
divided into two parts: 
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FIGURE 3.13 Schematic diagram of the low-speed A/D 
converter. 
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FIGURE 3.14 Flow chart for the machine language program 1. 
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1. A machine language routine was written to control the MC14433, 
and to provide high-speed transfer of data from the MC14433 to a 
specific location in computer memory. 

2. An Applesoft BASIC program was written to take the data in mem- 
ory and format it into a voltage that can be displayed as a decimal 
quantity on the video display. 


Figure 3.14 shows the flow chart of the machine language pro- 
gram, and Listing 3.2 shows the coded program with comments. 
Upon entering the subroutine, the end of the conversion (EOC) 
flip-flop is reset and the program loops until the MC14433 
completes the next conversion and sets the flip-flop. The program 
then samples the data lines and decides whether or not the most 
significant digit of data was sampled. If it was not, the program 
continues to sample the data lines until this digit is obtained. 
Once this digit is found, it is transferred to memory and the 
program looks for the second digit. Afterthe four digits represent- 
ing the digitized input voltage have been stored, the program 
executes an RTS and returns to the BASIC program. 


LISTING 3.2 Machine language program for the low-speed A/D converter 
(single sample). 


4000 8D BO 49 STA $49B0 SAVE REGISTERS 
4003 8E Bl 49 STX 549В1 

4006 8C B2 49 STY $4982 

4009 08 PHP SAVE PROC STATUS 
400A A2 00 LDX #$00 CLEAR X REGISTER 
400C a9 00 LDA %500 CLEAR A REGISTER 
4008 85 0A STA SOA START LOCATION FOR DATA 
4010 A9 4А ГОА #$4А 

4012 85 0B STA $0В 

4014 4C 40 40 JMP $4040 JUMP TO TAKE DATA 
4017 00 BRK 

4018 00 BRK 

4019 00 BRK 

401A 00 BRK 

401B 00 BRK 

401c 00 BRK 

401D 00 BRK 

401Е 00 BRK 

401: 00 BRK 

4020 00 BRK 

4021 00 BRK 

4022 00 BRK 

4023 00 BRK 

4024 00 BRK 

4025 AD BO 49 LDA $49B0 RESTORE REGISTERS 
4028 AE Bl 49 LDX $4981 

402B АС B2 49 LDY $49B2 

402E 28 PLP RESTORE PROC STATUS 
402F 60 RTS RETURN TO BASIC 


4030 EA NOP 
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LISTING 3.2 (Continued) 


4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
403A 
403B 
403С 
4030 
403Е 
403F 
4040 
4043 
4046 
4048 
404A 
404C 
404F 
4052 
4054 
4056 
4058 
405B 
405D 
405F 
4061 
4062 
4064 
4066 
4068 
4069 
406B 
406E 
4071 
4073 
4075 
4077 
407A 
407C 
407E 
4080 
4081 
4083 
4085 
4087 
4088 
408A 
408D 
4090 
4092 
4094 
4096 
4099 
409B 
409D 
409F 
40A0 
40A2 
40A4 
40A6 


EA 
БА 
БА 
БА 
БА 
БА 
БА 
EA 
EA 
EA 
EA 
EA 
EA 
БА 


со 
со 


co 
49 


49 


co 
49 


49 


co 
49 


49 


NOP 
NOP 
NOP 
NOP 


NOP 
NOP 
NOP 
NOP 


NOP 
NOP 


NOP 
STA 


BNE 
LDA 
STA 


LDA 
STA 
INY 


INY 
STY 


STA 


$COF2 
$COFl 
#$80 
#$80 
$4043 
SCOFO 
$49A2 
#$80 
#$80 
$404C 
$49A2 
#$0Е 
($0А,Х) 
$0А 


$0А 
$406В 
$0B 


$0B 
SCOFO 
$49А2 
#$40 
#$40 
$406B 
$49A2 
#$0Р 
($0A,X) 
$0A 


$0A 
$408A 
$0B 


$0B 
SCOFO 
$49A2 
#$20 
#$20 
5408А 
$49А2 
#502 
($0А,Х) 
$0А 


$0А 
$40A9 
$0B 


START CONVERSION 
TEST FOR EOC 


JUMP IF EOC* 
INPUT DATA 
STORE TEMP 
CHECK FOR MSD 
JUMP ТР NOT MSD 
GET DATA 

SAVE 4 BITS 
STORE DATA 


INCREMENT STORAGE 


INCREMENT STORAGE 


TEST FOR NEXT BYTE 


JUMP IF NOT 


TEST FOR NEXT DIGIT 


40A7 84 ОВ STY $0B 


40A9 AD FO CO ГОА $COFO 
40AC 8D A2 49 STA $49A2 
40AF 29 10 AND #510 TEST FOR NEXT DIGIT 
4081 c9 10 СМР #$10 
4083 DO F4 BNE $40A9 
40B5 AD А2 49 LDA $49A2 
40B8 29 OF AND #$0Е 
40BA 81 ОА STA ($0A,X) 
40BC А4 OA ШҮ SOA 
40BE c8 INY 

40BF 84 OA STY $0А 
40С1 р0 05 ВМЕ $40С8 
40С3 A4 OB LDY $0B 
40С5 c8 INY 

40С6 84 ОВ STY $0В 
40С8 4С 25 40 JMP $4025 


The BASIC routine has Фе task of calling the machine lan- 
guage routine and assembling the four digits from each conver- 
sion back into a single number which is equal to the measured 
voltage. This program has been written using the CALL command 
to jump to the machine language routine. A flow chart for the 
BASIC program is shown in Figure 3.15 and Listing 3.3 shows the 
coded program. Listing 3.3 has the machine language program 
included in it as a series of DATA statements that are read in by 
line 22. You only have to load the BASIC program to get the A/D 
converter to work. This program performs A/D conversions on a 
continuous basis, displaying the value ofthe analog input voltage 
on the video monitor. 

Once the circuitry has been built, you still have the job of 
finding any errors that may have been made during construction. 
To assist you in this process, I am including the following checks 
for you to make: 


1. The voltage at pin 2 on IC5 should be set to 2.00 volts. 

2. Using an oscilloscope attached to pin 10 on IC5, you should see a 
150,000 Hz distorted square wave varying between +2 and - 2 
volts. | 

3. The voltage at pin 1 on IC4 should be equal to +5 volts. Run the 
following program to repeatedly reset the flip-flop. 

100 POKE - 16142,0 
110 FOR I-1 TO 20 
120 NEXT I 

130 GOTO 100 

4. After you have loaded the BASIC program, connect a 1.5 volt 
battery to the input and execute the program. You should see a 
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FIGURE 3.15 Flow chart for the BASIC 
program 1. 


LISTING 3.3 BASIC program for the low-speed A/D converter (single 
sample). 


10 REM LOW SPEED A/D CONVERTER #1 

20 REM R. BALLGREN, APPLE II, 10/27/81 

22 FOR 1=16384 TO 16586: READ D:POKE I,D:NEXT I 
24 GOSUB 1000 

26 FOR I-1 TO 255 

30 REM CONVERT ONE SAMPLE ' 

50 CALL 16384 

70 Х4=РЕЕК (18944) :ХЗ=РЕЕК (18945) 

72 X2=PBEK (18946) :Х1=РЕЕК( 18947) 

73 W4=X4 
74 IF Х4>7 THEN Х4=0 

75 IF X4-0 THEN GOTO 80 
76 X4-1 
80 X$2STR$ (XA) *t5TR$ (X3) xtSTR$ (X2) *STRS$ (X1) 
81 X--VAL(X$)/1000 

82 IF X4=0 THEN W4=W4-8 

83 IF W4>3 THEN Х=-Х 

84 HOME 

86 УТАВ 12 
88 PRINT "THEN INPUT VOLTAGE EQUALS ";X;" VOLTS" 
90 NEXT I 
99 END 
REM INTRODUCTION 


1000 
1010 
1020 
1022 
1040 
1042 
1050 
1052 
1060 
1062 
1070 
1072 
1080 
1082 
1090 
2000 


2002 
2004 
2006 
2008 
2010 
2011 
2012 
2014 
2016 
2018 
2020 
2022 
2024 
2026 
2028 
2030 


HOME 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GET K 
IF K$ 


"THIS IS A DEMONSTRATION PROGRAM FOR THE" 


"LOW SPEED A/D CONVERTER. THE INPUT" 


nent 


ГА 
"VOLTAGE SHOULD BE LESS THAN 1.999 VOLTS" 


u..." 


"AND GREATER THAN 0 VOLTS." 


а... 
, 


"PRESS THE SPACE BAR TO CONTINUE." 
a, t. 
L 
$ 
<>" " THEN GOTO 1080 


RETURN 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


141,176,73,142,177,73,140,178,73,8,162,0,169,0, 
133 
10,169,74,133,11,76,64,64,0,0,0,0,0,0,0,0,0,0,0,0 
0,0,173,176,73,174,177,73,172,178,73,40,96 
234,234,234,234,234,234,234,234,234,234,234 
234,234,234,234,234,141,242,192,173,241,192 
41,128,201,128,208,247,173,240,192,141,162 
73,41,128,201,128,208,244,173 
162,73,41,15,129,10,164,10,200,132,10,208 
5,164,11,200,132,11,173,240,192,141,162,73 
41,64,201,64,208,244,173,162,73,41,15,129 
10,164,10,200,132,10,208,5,164,11,200,132 
11,173,240,192,141,162,73,41,32,201,32 
208,244,173,162,73,41,15,129,10,164,10 
200,132,10,208,5,164,11,200,132,11,173 
240,192,141,162,73,41,16,201,16,208,244 
173,162,73,41,15,129,10,164,10,200,132 
10,208,5,164,11,200,132,11,76,37,64 


video introduction and, after pressing the space bar, you should see 
the value of the battery voltage (1.54 volts) displayed on the CRT. 


The MC14433 circuitry has been set up so that it is performing 
an analog-to-digital conversion approximately every .067 sec- 
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onds (fifteen samples per second). Listing 3.4 shows a machine 
language program that takes a total of 256 samples before return- 
ing to the calling routine. Figure 3.16 shows a flow chart for the 
program. Listing 3.5 shows a BASIC program which calls the 
machine language routine and then plots the data. Figure 3.17 
shows a flow chart for the BASIC program. The BASIC program 
has the machine language program included in it as a series of 
DATA statements that are read in by line 24. 

Hooking the 1.5 volt battery to the input should give a 
straight line plot. Figure 3.18 shows a simple resistor, capacitor, 
and battery combination which can be used to demonstrate the 
capability of the system. Initially, disconnect the battery and 
connect the input of the A/D converter across the capacitor. Begin 


LISTING 3.4 Machine language program for the low-speed A/D converter 
(256 samples). 


4000 8D BO 49 STA $49В0 SAVE REGISTERS 
4003 8E Bl 49 STX $4981 

4006 8C B2 49 STY  $49B2 

4009 08 PHP SAVE PROC STATUS 
400A A2 00 LDX #500 CLEAR X REGISTER 
400C А9 00 LDA %500 CLEAR А REGISTER 
4008 85 OA STA SOA START LOCATION FOR DATA 
4010 AQ 4A ГОА #$4А 

4012 85 OB STA SOB 

4014 А9 00 LDA 8500 STOP LOCATION FOR DATA 
4016 8D АО 49 STA $49A0 

4019 A9 4E LDA #$4Е 

401B 8D Al 49 STA $49А1 

401E АП Al 49 LDA 549А1 

4021 C5 OB СМР $08 

4023 DO 1B BNE $4040 

4025 AD BO 49 LDA $49B0 RESTORE REGISTERS 
4028 AE Bl 49 LDX $4981 

402B АС B2 49 LDY $49B2 

402Е 28 PLP RESTORE PROC STATUS 
402F 60 RTS RETURN TO BASIC 
4030 EA NOP 

4031 EA NOP 

4032 EA NOP 

4033 EA NOP 

4034 EA NOP 

4035 EA NOP 

4036 EA NOP 

4037 EA NOP 

4038 EA NOP 

4039 EA NOP 

403A EA NOP 

403B EA NOP 

403C EA NOP 

403D EA NOP 

403E EA NOP 


403F EA NOP 
4040 8D F2 CO STA $COF2 START CONVERSION 


4043 
4046 
4048 
404А 
404C 
404F 
4052 
4054 
4056 
4058 
405B 
405D 
405F 
4061 
4062 
4064 
4066 
4068 
4069 
406B 
406E 
4071 
4073 
4075 
4077 
407A 
407C 
407E 
4080 
4081 
4083 
4085 
4087 
4088 
408A 
408D 
4090 
4092 
4094 
4096 
4099 
409B 
409D 
409F 
40A0 
40A2 
40A4 
40A6 
40A7 
40А9 
40AC 
40АР 
4081 
4083 
4085 
4088 
40BA 
40BC 
40BE 
40BF 
40С1 
40C3 
4065 
40С6 
40С8 


co 


co 
49 


49 


co 
49 


49 


co 
49 


49 


co 
49 


49 


40 


LDA 
AND 
CMP 
BNE 
LDA 
STA 
AND 
CMP 
BNE 
LDA 
AND 
STA 
LDY 
INY 
STY 
BNE 
LDY 
INY 
STY 
LDA 
STA 
AND 
CMP 
BNE 
LDA 
AND 
STA 
LDY 
INY 
STY 
BNE 
LDY 
INY 
STY 
LDA 
STA 
AND 
CMP 
BNE 
LDA 
AND 
STA 
LDY 
INY 
STY 
BNE 
LDY 
INY 
STY 
LDA 
STA 
AND 
CMP 
BNE 
LDA 
AND 
STA 
LDY 
INY 
STY 
BNE 
LDY 
INY 
STY 
JMP 


$C0F1 
#$80 
#$80 
$4043 
SCOFO 
$49A2 
%580 
%580 
5404С 
549А2 
#SOF 
($0A,X) 
$0A 


$0A 
$406B 
$0B 


$0B 
SCOFO 
$49A2 
#540 
#540 
$406B 
$49A2 
%50Ғ 
($0A,X) 
$0A 


$0A 
$408A 
$0B 


$0B 
5С0Ғ0 
$49А2 
#$20 
#$20 
$408 А 
$49А2 

8 $02 
($0A,X) 
$0A 


$0A 
$40A9 
$0B 


$0B 
SCOFO 
$49A2 
#$10 
#$10 
$40A9 
$49A2 
$$0F 
($0A,X) 
$0A 


$0A 
$40C8 
$0B 


$0B 
$401E 


TEST FOR EOC 


JUMP IF EOC* 
INPUT DATA 
STORE TEMP 
CHECK FOR MSD 
JUMP IF NOT MSD 
GET DATA 

SAVE 4 BITS 
STORE DATA 


INCREMENT STORAGE 


INCREMENT STORAGE 


TEST FOR NEXT BYTE 


JUMP IP NOT 


TEST FOR NEXT DIGIT 


TEST FOR NEXT DIGIT 


FIGURE 3.16 Flow chart for the machine language program 2. 


4000 
Save registers 
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Initialize 
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Sample data lines 
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4040 
Initiate 
conversion 
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Conversion 
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LISTING 3.5 BASIC program for digitizing and plotting data. 


10 REM LOWSPEED A/D CONVERTER 

12 REM APPLE II, R. HALLGREN, 10/28/81 

24 FOR 1=16384 TO 16586:READ О:РОКЕ I,D:NEXT I 
104 DIM Z(300):HOME:GOTO 1000 

110 CALL 16384 

111 HOME:VTAB 24 

112 PRINT "THE DIGITIZED DATA IS BEING FORMATTED" 
113 PRINT "FOR PLOTTING." 

114 Х=18944 

115 FOR J=0 TO 255 

120 V1=PEEK(X) :V2=PEEK( X+1) 

126 V3=PEEK ( X+2) : V4=PEEK ( X+3) 

128 X=x+4 

130 IF У1>7 THEN V1=0 

132 IF vl=0 THEN GOTO 140 

134 vl=1 

140 VS$=SRTS(V1)+STRS$(V2)+STRS$(V3)+STRS(V4) 
150 Z(J)zVAL(V$)/1000 

160 NEXT J 

200 HGR:HCOLOR=3 

202 HPLOT 20,0 TO 20,150:HPLOT TO 279,150 
208 HPLOT 18,0 TO 22,0 

210 HPLOT 18,10 TO 22,10 

212 HPLOT 18,20 TO 22,20 

214 HPLOT 18,30 TO 22,30 

216 HPLOT 18,40 TO 22,40 

218 HPLOT 18,50 TO 22,50 

220 HPLOT 18,60 TO 22,60 

222 HPLOT 18,70 TO 22,70 

224 HPLOT 18,80 TO 22,80 

226 HPLOT 18,90 TO 22,90 

228 HPLOT 18,100 TO 22,100 

230 HPLOT 18,110 TO 22,110 
232 HPLOT 18,120 TO 22,120 
234 HPLOT 18,130 TO 22,130 

236 HPLOT 18,140 TO 22,140 

238 HPLOT 18,150 TO 22,150 

240 HPLOT 4,47 ТО 4,53:HPLOT 7,53 

246 HPLOT 10,47 TO 10,53 

248 HPLOT TO 14,53 

250 HPLOT TO 14,47:HPLOT TO 10,47:HPLOT TO 7,103 

262 HPLOT 14,97 TO 10,97:HPLOT TO 10,100:HPLOT TO 14,100 
264 HPLOT TO 14,103:HPLOT TO 10,103 

272 HPLOT 14,147 TO 10,147:HPLOT TO 10,153:HPLOT TO 14,153 
274 HPLOT TO 14,147 

280 HPLOT 30,148 TO 30,152 

281 HPLOT 40,148 TO 40,152:HPLOT 50,148 TO 50,152 

282 HPLOT 60,148 TO 60,152:HPLOT 70,148 TO 70,152 

283 HPLOT 80,148 TO 80,152:HPLOT 90,148 TO 90,152 

284 HPLOT 100,148 TO 100,152:HPLOT 110,148 TO 110,152 
285 НРІОТ 120,148 TO 120,152:HPLOT 130,148 TO 130,152 
286 HPLOT 140,148 TO 140,152:HPLOT 150,148 TO 150,152 
287 HPLOT 160,148 TO 160,152:HPLOT 170,148 TO 170,152 
288 HPLOT 180,148 TO 180,152:HPLOT 190,148 TO 190,152 
289 HPLOT 200,148 TO 200,152:HPLOT 210,148 TO 210,152 
290 HPLOT 220,148 TO 220,152:HPLOT 230,148 TO 230,152 
291 HPLOT 240,148 TO 240,152:HPLOT 250,148 TO 250,152 
292 HPLOT 260,148 TO 260,152:HPLOT 270,148 TO 270,152 
300 FOR J=0 TO 255 

310 HPLOT J420,150-(2(J)*100) 

320 NEXT J 

999 END 

1000 PRINT "PRESS 'RETURN' TO START A/D" 

1010 K=PEEK(-16384) 


50 


LISTING 3.5 (Continued) 


1012 POKE -16368,0 

1014 IF К>127 THEN GOTO 1020 

1016 GOTO 1010 

1020 TEXT 

1022 HOME 

1024 VTAB 24 

1026 PRINT "256 DATA POINTS ARE BEING DIGITIZED" 

1028 GOTO 110 

1099 END 

2000 DATA 141,176,73,142,177,73,140,178,73,8,162,0,169,0, 
133 

2002 DATA 10,169,74,133,11,169,0,141,160,73,169,78,141, 
161,73 

2004 DATA 173,161,73,197,11,208,27,173,176,73,174,177,73, 
172 

2006 DATA 178,73,40,96,234,234,234,234,234,234,234,234,234 

2008 DATA 234,234,234,234,234,234,234,141,242,192,173,241, 
192 

2010 DATA 41,128,201,128,208,247,173,240,192,141,162,73,41, 
128 

2012 DATA 201,128,208,244,173,162,73,41,15,129,10,164,10, 
200 

2014 DATA 132,10,208,5,164,11,200,132,11,173,240,192,141, 
162 

2016 DATA 73,41,64,201,64,208,244,173,162,73,41,15,129,10, 
164 

2018 DATA 10,200,132,10,208,5,164,11,200,132,11,173,240, 
192,141 

2020 DATA 162,73,41,32,201,32,208,244,173,162,73,41,15, 
129,10 

2022 DATA 164,10,200,132,10,208,5,164,11,200,132,11,173, 
240 

2024 DATA 192,141,162,73,41,201,16,208,244,173,162,73,41 

2026 DATA 15,129,10,164,10,200,132,10,208,5,164,11,200 

2028 DATA 132,11,76,30,64 


executing the program. Connect the battery to the circuit. The plot 
(See Figure 3.19) should show an exponential rise in voltage 
across the capacitor—exactly what you would expect. Figure 3.20 
shows the plot of a .1 Hz sine wave digitized at a sampling rate of 
fifteen samples per second. 


Ten-bit, High-speed A/D Converter 


The AD571 (Analog Devices, Norwood, Massachusetts 02062) is a 
ten-bit, successive-approximation, A/D converter consisting of an 
internal D/A converter, voltage reference, clock, comparator, ap- 
proximation register, and output buffers. With this device, an 
analog voltage can be converted into a quantity represented by 10 
binary bits in approximately 25 microseconds, conversion rate 
not being a function of the magnitude of the input voltage. Figure 
3.21 shows the block diagram and pin assignment for the AD571. 
This integrated circuit can operate from a positive supply voltage 
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FIGURE 3.17 Flow chart for the BASIC program 2. 


FIGURE 3.18 Series RC circuit for low-speed A/D converter demonstration. 
12K 


1.5 100 uf 
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FIGURE 3.19 Voltage across the capacitor measured as a function of time. 


0 
FIGURE 3.20 Sine wave (.1 Hz) digitized at 15 samples per second. 


(pin 10) which can be set between + 5 and + 15 volts depending on 
whether you need TTL or CMOS compatability. The negative 
supply voltage (pin 12) is intended to be set at — 15 volts, but can 
be set as low as — 12 volts if necessary. The AD571 gives the 
designer the option of being able to configure the internal circui- 
try for either unipolar (0 to + 10 volts) or bipoloar (- 5 to + 5 volts) 
operation. If your application involves only positive signals, then 
the greatest resolution can be realized by operating the circuit in 
the unipolar mode. Grounding the BIPOLAR OFFSET CONTROL 
(pin 15) puts the chip in the unipolar mode, while leaving this pin 
“open” puts the chip in the bipolar mode. Figure 3.22 shows а 
way to have logic control of pin 15. When operated in the unipolar 
mode, 0 volts gives an output code of 0000000000 and + 10 volts 
gives an output code of 1111111111. When operated in the bipolar 


FIGURE 3.21 Block diagram of the Analog Devices AD571 A/D converter. 
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FIGURE 3.22 Bipolar Offset Control controlled by logic gate. 


mode, 0 volts gives an output code of 1000000000, — 5 volts gives 
an output code of 0000000000, and + 4.99 volts gives an output 
code of 1111111111. For our application, bipolar operation was 
desired; consequently, pin 15 was left “open.” 

The AD571 uses a conversion scheme known as successive- 
approximation to achieve the high resolution and speed neces- 
sary for some computer applications. Successive-approximation 
involves comparing the unknown input voltage to a preset series 
of voltages that are binary fractions of the maximum voltage that 
may be measured. Initialization of the conversion process is ac- 
complished by providing a pulse to the control line CONVERT*. 
Upon receipt of the convert pulse, the internal D/A converter is 
sequenced from its most significant bit to its least significant bit. 
The internal comparator determines whether the addition of each 
successively-weighted bit creates a voltage which is greater or less 
than the input voltage. If the voltage is greater, the bit is turned 
OFF; if the voltage is less, the bit is left ON. After the sequence is 
completed, the conversion is complete and the internal succes- 
sive approximation register contains the 10-bit binary code which 
represents the input signal. Thus, for a circuit that measures an 
input varying between 0 and 10.0 volts, the comparisons would be 
made between voltage levels that varied in 9.766E-3 volt incre- 
ments (10 volts divided by 1024 discrete levels). When an un- 
known input voltage is to be converted, the MSB of the D/A 
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converter's output (1⁄2 full scale) is turned ON and the input 
voltage is compared to 5 volts. If the input voltage is less than 5 
volts, the MSB is turned OFF, the next bit (14 full scale) is turned 
ON, and the input voltage is compared to 2.5 volts. Ifthe unknown 
voltage is greater than 2.5 volts, the second bit is left ON, the next 
bit (75 full scale) is turned ON, and the input voltage is compared 
to 3.75 volts. If the unknown voltage is less than 3.75 volts, the 
third bit is turned OFF, the next bit (1/16 full scale) is turned ON, 
and the input is compared to 3.125 volts. This process continues 
in order of descending bit weight until all the bits have been tried. 
The conversion process is thus completed and the 10-bit binary 
number representing the unknown input voltage is ready to be 
read by the computer. Figure 3.23 shows the timing relationship 
between the start of a conversion and the test sequence that we 
have described above. 


FIGURE 3.23 Typical test sequence for a successive approximation A/D converter. 
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FIGURE 3.24 Noninverting, unity gain, buffer amplifier. ` 


During the time that the conversion is being performed, the 
status line, DATA READY" (pin 17), goes high indicating that the 
converter is busy. Upon completion of the conversion, the status 
line goes low, bringing the three state buffers out of their “open” 
state and activating the bit output lines. 

The typical input resistance of the AD571 is equal to 5000 
ohms. Since this is low enough to excessively load some circuits, I 
would recommend that you use a buffer circuit to provide the 
necessary impedance matching. If your input voltage approaches 
the maximum capability of the A/D converter, then the simple 
unity gain, voltage-follower shown in Figure 3.24 should be ade- 
quate. If your input voltage is much less than the maximum the 
converter is capable of measuring, then the inverting amplifier 
shown in Figure 3.25 should be used. Notice that the gain of this 
amplifier configuration is variable, depending upon the ratio of 
the resistor combinations that are used. Appendix B has been 
provided to explain the operation of amplifier circuits, and to 
provide you with enough information so that you can design a 
specific circuit to satisfy your design requirements, if you should 
need to do so. 


DETERMINING THE RESOLUTION While we have dis- 
cussed the definition of resolution in an earlier section, I would 
like to make some additional comments which will help you 


FIGURE 3.25 Inverting, adjustable gain, buffer amplifier. 


determine the resolution that your particular application will 
require. In the process of A/D conversion, we are representing a 
continuous analog voltage in terms of a certain number of binary 
bits. We have already stated that the number of binary digits 
which are available to represent the analog signal is going to 
determine the resolution of the system, where resolution gives a 
measure of the converter's ability to distinguish between two 
voltages separated by some small voltage increment dR. For 
example, in Figure 3.26 we have the block diagram of a typical 
8-bit A/D converter. Functioning correctly, this device will con- 
vert an analog input voltage, V,, into a discrete voltage rep- 
resented by the 8-bit binary number at the output. If a 0 volt signal 
is represented by a bit configuration equal to 00000000, and a+ 10 
volt signal is represented by a bit configuration equal to 
11111111,then any magnitude of voltage between these extremes 
will be equal to a multiple of .039 volts (10 volts divided by 256 
discrete levels). The converter will by necessity introduce an 
uncertainty—consequently, an inaccuracy—into the measure- 
ment, since the actual input voltage has to be represented by a 
discrete quantity at the output, and there are only so many bits 
which are available. It should be easy to see that we should be able 
to increase the accuracy of the A/D converter by increasing the 
resolution, that is, by increasing the number of binary output bits 
which are available to represent the input voltage. For example, if 
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FIGURE 3.26 Block diagram of an 8-bit, successive approximation type A/D converter. 


we were using a 10-bit A/D converter, we would expect the device 
to represent the input voltage as one of 1024 possible values. This 
would mean that a O volt signal would be represented by 
0000000000, a +10 volt signal would be represented by 
1111111111, and values in between these two extremes would be 
assigned values in steps of .00977 volts (10 volts divided by 1024 
discrete levels). This is obviously an improvement over the 8-bit 
device. 

Since increased resolution usually means increased circuit 
cost, increased conversion time, and increased memory require- 
ments, we need to wisely choose the number of output bits that 
will satisfy our particular design requirements without providing 
excessive capability. How then do we determine the resolution 
(dR) which we will need to meet the requirements of our applica- 
tion? Suppose we needed to determine the magnitude of the input 
voltage and be reasonably certain that the apparent magnitude 
was within 1 percent of the actual magnitude. To achieve this, we 
would have to have a resolution of at least 1 part in 100. To attain 
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this resolution, we will need at least 7 binary bits at the output. If 
both positive and negative quantities are to be represented, the 
converter will need one extra bit to represent the sign, making a 
total of 8 bits. While 1 percent sounds pretty good, remember that 
this is in reference to the maximum voltage that the converter can 
handle; this means that for a maximum input voltage of 10 volts, 
you will be able to distinguish signals that are .1 volt apart. If the 
input voltage is varying between 0 and + 1 volt, you still will have 
aresolution equal to .1 volt, but your accuracy will have decreased 
to 10 percent (1/ .1). Keep in mind that for this discussion, I am 
assuming that the primary source of inaccuracy in our system is 
due to a lack of resolution. To determine a measure of your 
system’s ability to differentiate between the magnitude of two 
voltages, follow these steps: 


1. Determine the magnitude of the signal that you will be measuring. 

2. Determine the maximum resolution of your system by dividing the 
magnitude of the output signal which corresponds to all 1’s, by the 
number of discrete voltage steps which the system is capable of 
providing. Do not count sign bits. 

3. Divide the quantity from Step 2 by the quantity from Step 1 and 
multiply by 100 to get the accuracy expressed in percent. 


You should realize that in Step 1 you were concerned with the 
magnitude of the signal that you would be measuring, not the 
magnitude of the signal that you were capable of measuring. The 
truncating and rounding procedure that the A/D converter per- 
forms to get the input signal to fall into predetermined voltage 
slots has the effect of causing the accuracy to vary as a function of 
the magnitude of the input signal (even though resolution re- 
mains constant). For this reason, you should always be aware of 
the magnitude of the signal which you will be measuring; often, 
the system you choose will have to be a compromise between 
accuracy and dynamic range. 

Figure 3.27 shows a schematic diagram of a high-speed A/D 
converter for the Apple II, and Figure 3.28 shows a schematic 
diagram of a crystal controlled time base oscillator which we will 
be using to determine the sampling rate. IC1 is an analog multi- 
plexer which is used to select one of eight possible input signals. 
Control of input signal selection is accomplished by latching a 
given bit pattern at the output pins of the quad type D flip-flop 
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FIGURE 3.27 High-speed A/D converter for the Apple 1. 
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FIGURE 3.28 Crystal-controlled time base oscillator. 
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(IC7). You should notice that one of the lines from the flip-flop is 
connected to the A/D converter. This is the control line (CON- 
VERT*), discussed earlier in the overview of the AD571 A/D 
converter (IC2), which is used to signal that a conversion is to 
begin. Data lines DO, D1, and D2 then control the selection of the 
analog input signal, and D3 controls the initiation of the conver- 
sion process. If you executed the following BASIC commands, 
you would convert the analog signal present at input 2 into a 
digital quantity. 


100 POKE - 16143,09 
110 POKE - 16143,01 


IC12, IC13, IC14, and ІС15 are operational amplifiers which are 
configured as unity gain, noninverting buffers. They are used to 
isolate an input signal from the input of the AD571 to avoid 
problems associated with the relatively low input resistance of 
this device. Four unbuffered inputs are also provided for input 
signals which do not need to be isolated (having a low value of 
series output resistance), or which require an additional stage of 
amplification. 

All the data and status lines to the Apple II have been isolated 
through use of the MC14503 three-state buffers (IC3 and IC4). 
Since the Apple II is an eight-bit machine, the 10 bits from the 
AD571 are transferred to memory in a two-step operation. The 
DATA RDY* line and the two most significant bits are read into 
the machine through the use of an LDA $COF2 machine language 
command. When the AD571 signals the Apple II that a conversion 
has been completed (by dropping DATA RDY* to 0 volts), the 
following sequence of operations should be performed: 


1. The most significant two bits of data (appearing on DO and D1 ofthe 
data bus) should be stored in memory. 

2. The least significant eight bits should be transferred into the com- 
puter through the use of an LDA $COF4 machine language com- 
mand and stored in memory. 

3. The Apple П should then either process the data or return to gather 
more data. 
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IC8 and the 1 MHz crystal provide a stable pulse train which is 
used to determine the sampling frequency. IC9, IC10, and IC11 
divide the 1 MHz pulse train by multiples of ten so that sampling 
rates of 1, 10, 100, and 1000 samples per second can be obtained. 
IC16 is а monostable multivibrator which is used to provide an 
inverted output pulse, width being independent of the output 
frequency, to the Apple II ГО interrupt input. The 2N3904 tran- 
sistor is configured as an emitter follower to provide the current 
drive requirements necessary to drive the interrupt line. 

Once you have constructed the interface, connect it to the 
Apple II and perform the following tests to make sure that it is 
working correctly: 


1. If you execute the following BASIC statements, pin 7 and pin 2 on 
IC7 should go to +5 volts. Pin 10 and pin 15 should remain at 0 
volts. 

100 POKE - 16143,09 

2. If you execute the following BASIC statements, pin 2 on IC7 should 
go to 0 volts. Pin 7 should remain at +5 volts. Pin 10 and pin 15 
should remain at 0 volts. 

100 POKE - 16143,01 

3. If you now apply an analog signal to input IN1, you should see that 

signal at the output (pin 3) of the multiplexer (IC1). 


If you have an oscilloscope, you can perform the following tests 
and adjustments: 


1. If you execute the following BASIC statements, you should see the 
DATA RDY* line periodically go from 0 to +5 volts. 
100 POKE - 16143,09 
110 РОКЕ - 16143,01 
140 РОВ 1=1 ТО 100 
142 МЕХТ 1 
150 СОТО 100 
2. Adjust the 4-40 pf trimmer capacitor in the crystal oscillator until 
the output of IC8 is equal to 1 MHz. The IRQ* line should reflect the 
sampling frequency that you have selected. 
3. Measure the pulse width of the output of IC16. It should be approx- 
imately equal to .1 milliseconds. 
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The software portion of the high speed A/D converter interface 
was handled in two parts: 


1. A routine written in Applesoft BASIC takes the binary representa- 
tion of the analog data and converts it into a decimal number which 
then can be displayed, or stored for future reference. 

2. A machine language routine which was written to control the 
AD571 and to provide high speed transfer of the binary data into 
the Apple II. 


Figure 3.29 shows a flow chart for the machine language routine, 
and Listing 3.6 gives the actual program with comments. Upon 
entering the subroutine, all necessary registers are saved to allow 


FIGURE 3.29 Flow chart for the machine language routine for controlling the high- 
speed A/D converter. 
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LISTING 3.6 Machine language program for the high-speed A/D converter. 


1000 
1003 
1006 
1009 
100A 
100c 
100E 
1010 
1012 
1014 
1017 
1019 
101С 
101Е 
101Р 
1022 
1024 
1026 
1029 
102С 
102Ғ 
1030 
1031 
1032 
1033 
1036 
1037 
1038 
1039 
103А 
103В 
103С 
103D 
103E 
103F 
1040 
1042 
1045 
1047 
104А 
1040 
104E 
1050 
1051 
1053 
1055 
1057 
1058 
105A 
105c 
105E 
105F 
1061 
1064 
1066 
1068 
1069 
106B 
106D 
106F 
1070 
1072 
1074 
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RTS 
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NOP 
JMP 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
BRK 
LDA 
STA 
LDA 
STA 
LDA 
ROL 
BCS 
ROR 
AND 
STA 
LDY 
INY 
STY 
BNE 
LDY 
INY 
STY 
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LDY 
INY 
STY 
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$10FD 
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a successful return to the BASIC calling routine. The program 
then defines the data storage space and initializes the system I/O 
bus. The interrupt request line is then activated and the program 
loops until an interrupt request is made. The request for an inter- 
rupt comes from the output of the crystal time base oscillator, the 
frequency being dependent upon the position of switch S1. After 


routine 


Digitize 
data 


undi." No 


Enter scale facto 


Display data 


FIGURE 3.30 Flow chart for the 
BASIC routine. 
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receiving an interrupt request, the program initiates an A/D con- 
version, and waits until the AD571 signals that the conversion is 
completed. The 10 data bits are then stored in memory and the 
program tests to see if the data storage is filled. If all the data 
storage has been filled, the program restores all the necessary 
registers and returns to the BASIC calling routine. If all the data 
storage has not been filled, the program returns to activate the 
interrupt system and to take more data. 

Figure 3.30 shows a flow chart for the BASIC program, and 
Listing 3.7 gives the actual program with comments. The BASIC 
routine first loads the machine language routine by using the 
READ and POKE statements. Then the machine language routine 
is called to obtain a block of digitized analog data. When the 


LISTING 3.7 BASIC program for the high-speed A/D converter. 


80 HIMEM:4096 

82 POKE 1022,64:POKE 1023,16:POKE 1016,72:POKE 1017,8 

83 POKE 1018,120:POKE 1019,40:POKE 1020,104:POKE 1021,96 

84 CALL 1016 

90 FOR І-4096 TO 4212:READ D:POKE I,D:NEXT І 

100 HOME:VTAB 12:PRINT "DATA BEING DIGITIZED" 

102 CALL 4096 

105 HOME:VTAB 12:PRINT "WHAT IS THE TIME SCALE?" 

106 GET К:ВОМЕ:УТАВ 12 

107 PRINT "DO YOU WANT TO SAVE THE DATA?":INPUT K$ 

108 IF K$="N" THEN GOTO 120 

109 IF K$2"Y" THEN GOTO 115 

110 СОТО 106 

115 p$s"" 

116 PRINT D$;"BSAVE DATA($1100),A$1100,L$2F00 

120 HOME:HGR2:HCOLOR=3 : X=4352 

130 FOR J=0 TO 240/K 

135 Х=Х+2:ТР X>16382 THEN GOTO 230 

140 У1=РЕЕК(Х) :У2=РЕЕК ( Х+1 ) 

142 IF У1>1 THEN GOTO 200 

150 Zz2-(511-(V1*256*V2)0)/5 

160 HPLOT К%7,90-7 

170 NEXT J 

190 HGR2:HCOLOR=3:GOTO 130 

200 Z=((V1-2) *256+V2)/5 

210 HPLOT K*J,90-2:GOTO 170 

230 TEXT: END 

1000 DATA 141,253,16,142,254,16,140,255,16,8,169,0,133, 
10,169 

1002 DATA О Е: 
62,0 

1004 DATA Fee eet tre и ть, 
254,16 

1006 DATA 872420716 а RE 

кру, 

1008 DATA 169,9,141,241,192,169,1,141,241,192,173,242, 
192,42,176 

1010 DATA 250,106,41,3,129,10,164,10,200,132,10,208,5, 
164,11,200 

1012 DATA 132,11,173,244,192,129,10,164,10,200,132,10,208 

1014 DATA 5,164,11,200,132,11,165,69,64 
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FIGURE 3.31a 10 Hz sine wave digitized at 1000 samples per second. 
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FIGURE 3.316 Music digitized at 1000 samples per second. 


program returns from the machine language routine, the BASIC 
program then reconstructs the data into a voltage and plots the 
voltage on the video monitor. Figure 3.31a shows the results of 
digitizing a 10 Hz sine wave at asampling rate of 1000 samples per 
second. Figure 3.31b shows the results of digitizing music at a 
sampling rate of 1000 samples per second. 

The program is configured so that you can save the digitized 
data. This will allow you to recover the data for further analysis. 
(In Chapter 8 we will use this feature to analyze a complex wave- 
form and determine frequency components.) The program also 
allows you to expand the displayed data. Figure 3.32a shows a 100 
Hz sine wave digitized at a sampling rate of 1000 samples per 
second and not expanded. Figure 3.32b shows the same block of 
data displayed with an expansion factor of 5. 


FIGURE 3.32a 100 Hz sine wave digitized at 1000 samples per second (^1). 


FIGURE 3.32b 100 Hz digitized at 1000 samples per second (*5). 
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DIGITAL-TO-ANALOG 
CONVERSION 


Digital-to-analog (D/A) converters are devices that take a digital 
input—usually from the data bus of a computer—and convert it 
into an analog signal. While the analog signal is often thought of 
as being a continuous quantity, the output of the D/A converter 
will actually consist of a series of discrete and easily measurable 
voltages. Resolution, the voltage difference between steps, will 
depend upon the number of bits that the D/A converter can 
handle. 

The Analog Devices AD558 DACPORT is an 8-bit digital-to- 
analog converter that includes a precision voltage reference, a 
microprocessor interface, a data latch, and an output amplifier— 
all on a single monolithic chip. Thin film silicon-chromium resis- 
tors are used in a current-driven ladder to provide an analog 
voltage that is stable over a large temperature range. Figure 4.1 
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FIGURE 4.1 Functional block diagram of the А0558. 


shows a functional block diagram of the А0558. The data latch is 
connected to the computer data bus, data being accepted when 
both control inputs, CE* and CS*, are low. When either control 
input returns high, the 8-bit data word is latched and the analog 
output is unaffected by further activity on the data lines. For a 
maximum output voltage of 2.56 volts, the resolution of the con- 
verter will be equal to 0.1 volts; that is, a change in the least 
significant digit will result in .01 volt change in the output volt- 
age. 

Figure 4.2 shows the schematic diagram for a D/A converter 
interface for the Apple II. Data is strobed into the converter by 
writing data to the appropriate I/O slot. The analog output will 
then remain stable until new data is written. 

After you have finished building the interface, perform the 
following tests to make sure that it is working correctly: 
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FIGURE 4.2 Interface schematic for the AD558 D/A converter. 


If you execute the following BASIC statements, you should see the 
analog output ramp from 0 volts to 2.55 volts. 

110 FOR I- 0 TO 255 

120 POKE — 16143,I 

130 NEXT I 

199 END 


Digital-to-analog converters are commonly used in digitally- 
controlled power supplies for automated test equipment, digital 
generation of analog waveforms, and digital control of automatic 
process control systems. I will present examples of two automatic 
test equipment systems that might be constructed to perform 
quality control testing in a manufacturing facility. 
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FIGURE 4.3 Block diagram of proposed testing arrangement. 
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The first example involves cycling an incandescent lamp 
through a number of voltages to determine if the lamp intensity is 
acceptably high. The lamp might be used in a simple colorimeter 
for a chemistry laboratory, and its intensity may need to be above a 
certain level to ensure reliable operation. Since checking each 
lamp could be very time consuming, it would be desirable to have 
the computer automatically increase the lamp voltage and record 
the lamp intensity at each voltage. At the end of the test, the 
computer could then make a decision regarding the acceptability 
of the lamp. The output of the AD558 is already buffered, but by 
itself cannot provide enough current to drive an incandescent 
lamp. What we will do is build a voltage programmable power 
supply, one whose output voltage is some multiple of the input 
voltage supplied by the A/D converter. 

Figure 4.3 shows a block diagram of the proposed testing 
arrangement. The data bus from the Apple II will supply a binary 
number that will be converted by the D/A converter into an analog 
voltage. This voltage will then be used to control the lamp voltage. 
Lamp intensity will be monitored by a photocell connected to the 
high speed A/D converter which we discussed in Chapter 3. Fig- 
ure 4.4 shows a schematic diagram of the programmable power 
supply. Figure 4.5 shows a flow chart for an Applesoft BASIC 
program to cycle the lamp voltage from 0 to 2.0 volts. Listing 4.1 
shows the actual program with comments. 


FIGURE 4.4 Schematic diagram of lamp power supply. 
*5 
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FIGURE 4.5 Flow chart of BASIC program for automatic testing of incandescent lamps. 


LISTING 4.1 BASIC routine for lamp test example. 


100 REM LAMP TEST ROUTINE 

102 REM В. HALLGREN, 10-27-81 

104 REM APPLE II 

120 FOR I=1 TO 10 

130 POKE -16143,20*Т 

140 FOR J=1 TO 500:NEXT J 

150 GOSUB 1000 

160 NEXT I 

170 GOSUB 2000 

199 END 

1000 REM ANALOG-TO-DIGITAL SUBROUTINE 
1999 RETURN 

2000 REM LAMP PASS/NOT PASS SUBROUTINE 
2999 END 
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FIGURE 4.6 Block diagram for low-pass filter testing arrangement. 
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The second example involves testing the frequency response 
of a low pass filter. We will use the D/A converter to directly 
control the output frequency of a B&K 3010 Function Generator 
(Dynascan Corporation, 6460 W. Cortland Street, Chicago, Illinois 
60635). This instrument has an input jack which allows an exter- 
nal voltage to directly control its output frequency. Figure 4.6 
shows a block diagram of the proposed testing arrangement. 
Again, the data bus from the Apple II will supply a binary number 
which will be converted by the D/A converter into an analog 
voltage. This voltage will then be used to control the frequency of 
the function generator. The output of the low pass filter could be 
monitored by connecting it to the high speed A/D converter, and 
the computer could determine if the 3db cutoff frequency is 
within acceptable limits. 

For both of the examples that we have looked at, the goal was 
to reduce the amount of personnel time required to perform a 
routine test operation. This was accomplished through the use of 
a computer-controlled test protocol. 


UTILIZATION 
OF THE APPEETI 
IN SERIAL APPLICATIONS 


HIGH RESOLUTION DIGITAL PLOTTING 


Utilization of personal computers, such as the Apple II, in busi- 
ness and research applications has met with considerable success. 
Not only do they function as computational tools but, when used 
in conjunction with peripheral devices, they can perform com- 
plex functions at reduced expense. The research laboratory often 
deals with complex, time-dependent waveforms. This type of data 
can be easily digitized (see Chapter 3) and analyzed (see Chapter 
8), but a major problem arises when a permanent copy of the data 
is required. Printing a column of numbers does little to convey to 
the researcher the nature of the data, especially several months 
after the data are taken. Plotting with a terminal such as the 
Decwriter II is possible, but lacks the necessary resolution for 
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many applications. The HIPLOT Digital Plotter, manufactured by 
Houston Instruments, gives the researcher a cost effective means 
of obtaining quality digital plots. The plotter accepts an 8% x 11 
inch sheet of paper and allows plotting within a 7 x 10 inch 
boundary. Reversible stepper motors are used to give bidirec- 
tional steps of either 200 or 100 steps per inch, amounting to a 
resolution of .005 or .01 inches per step respectively. The plotter 
comes with a standard RS-232C serial interface, so interfacing itto 
the computer is a relatively straightforward task. 


IC2 IC4 
MC14013 MC14049 


Apple II 
I/O bus 


FIGURE 5.1 HIPLOT and Apple Il interface connections. 


We have already discussed the serial data format in Chapter 
2, and we have examined the necessary hardware (see Figure 2.9) 
and software (see Listing 2.1) to implement a TTL to RS232-C 
conversion. If you have not already built this circuit, you should 
do so now. Since we will be using the power supply in the Apple 
II, you will not need to provide any additional voltages. Once you 
have constructed the interface, connect it to the plotter as shown 
in Figure 5.1 and insert the circuit board into ГО slot 5. Perform 
the following tests to make sure that it is working correctly: 


1. If you execute the following BASIC statement the output of IC1 
should go to +10 volts. 
POKE - 16175,0 
2. If you execute the following BASIC statement the output of IC1 
should go to —10 volts. 
РОКЕ — 16175,1 
3. Load and execute the BASIC program shown in Listing 5.1. If 
everything is working correctly, the plotter pen should begin mov- 
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LISTING 5.1 Digital plotter demonstration program. 


10 REM DIGITAL PLOTTER DEMO 

12 REM APPLE II 

14 REM R. HALLGREN, 9-15-81 

20 FOR I=0 TO 160:READ D:POKE (-32800+Т),К:МЕХТ I 

50 FOR І=1 TO 100 

52 CALL -32695 

54 NEXT I 

99 END 

10000 DATA 160,9,24,72,176,7,169,0,141,209,192,144,5,169, 
1,141,209,192,169,3 

10002 DATA 72,169,4,74,144,253,104,233,1,208,245,104,106, 
136,208,223,160,2,169 

10004 DATA 1,141,209,192,169,3,72,169,4,74,144,253,104, 
233,1,208,245,136,208 

10006 DATA 235,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0 

10008 DATA 72,8,169,112,32,224,127,40,104,96,72,8,169,113, 
76,60,128,72,8,169,114 

10010 DATA 76,60,128,72,8,169,115,76,60,128,72,8,169,116, 
76,60,128,72,8,169,117 

10012 DATA 76,60,128,72,8,169,118,76,60,128,72,8,169,119, 
76,60,128,72,8,169,121 

10014 DATA 76,60,128,72,8,169,122,76,60,128 


ing toward the right hand side of the platen. If you execute the 
program and nothing happens, you should borrow an oscilloscope 
and check both the bit pattern and the bit spacing of the serial data. 
Figure 5.2 shows the bit pattern and spacing that should be ob- 
tained. 


Being able to accomplish the transfer of information in an 
RS232-C format is only the first step towards using the plotter. 
The HIPLOT consists of two stepper motors which control the X, Y 
position of the plotter pen. Control of the pen position, and all 
other plotter functions, is accomplished by sending specific con- 
trol characters to the device. Figure 5.3 shows the axis system for 
the plotter pen, and Table 5.1 shows the character that produces 
an increment of the pen along the given vector. Also included are 


FIGURE 5.2 Bit pattern and spacing of RS232-C output from the demonstration prograr 
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TABLE 5.1 HIPLOT command characters. 


BASIC 
Character| Address 


FIGURE 5.3 HIPLOT vector notations. 
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the characters that produce control functions such as PEN UP. 
Since the plotter comes without any software, it is necessary to 
write subroutines to generate an axis system, to lable the axis, and 
to plot the data. 

Listing 5.2 shows a program which provides some of these 
capabilities. Figure 5.4 shows a flow chart for the BASIC program. 
This program draws an X,Y axis system, lables the system with 
numeric characters, and plots an exponential increase in voltage 
as a function of time. Figure 5.5 shows a series of plots taken for 
increasing values of the time constant. The software was written 
so that the entire plot could be scaled to different dimensions. 
Figure 5.6 shows the maximum range of plot size. It should be 
obvious to the reader that the program will most likely have to be 
modified to meet the requirements ofthe specific application. The 
program shown in Listing 5.2 was written in a very general sense 
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LISTING 5.2 BASIC program for operation of the digital plotter. 


10 REM DIGITAL PLOTTER 

12 REM APPLE II 

14 REM К. HALLGREN 9-15-81 

20 FOR I = O TO 160; READ К 

22 POKE ( - 32800 + ІК 

24 NEXT I 

100 REM MAIN PROGRAM 

110 HOME : УТАВ 12 

112 PRINT "POSITION PEN IN LOWER LEFT HAND” 

114 PRINT "CORNER. PRESS ANY KEY TO CONTINUE." 

116 GET А% 

118 HOME 

120 PRINT “INPUT THE SCALE ҒАСТОК(3<К<19)" 

122 INPUT К 

124 ТЕ К < 4 ОК K 18 THEN GOTO 118 

128 НОМЕ 

140 GOSUB 1000 

150 GOSUB 2000 

200 REM PLOT DEMONSTRATION 

202 CALL - 32646 

210 FOR I = 0 ТО ‚5 ЖК STEP .005 

220 V= 5x (1 - EXP ( ~ 10 £ I / RD) 

222 L = INT (10 X K x V) 

224 ТЕ L - Z = 0 THEN GOTO 250: REM NO CHANGE IN POTENTIAL 
226 IF L - Z < 0 THEN GOTO 240: REM POTENTIAL IS DECREASING 
228 FOR J = 1 TO (L - 7): REM POTENTIAL IS INCREASING 
230 CALL - 32712 

232 NEXT J 

234 GOTO 248 

240 FOR J = 1 TO (Z - L) 


242 CALL - 32681: NEXT J? REM MOVE PEN ІМ -Y DIRECTION 

248 Z = L. 

250 CALL - 32695: NEXT Ї REM MOVE PEN IN +X DIRECTION 
299 END 

1000 REM X-AXIS 

1010 CALL - 32653 

1012 FOR I = 1 TO 100 + 3 * K: CALL — 32712: NEXT I 


1013 FOR I 1 TO + 903 CALL - 32695: NEXT I 

1014 CALL - 32646 

1016 FOR I = 1 TO 100 Ж К: CALL - 32695: NEXT I 

1020 GOSUR 1900 

1030 CALL ~ 32653 

1032 FOR I = 1 TO $ k K? CALL - 32667: NEXT I 

1033 60508 8100 

1034 CALL ~- 32653: FOR I = 1 TO 4 ЖК: CALL - 32695: NEXT I 
1035  GOSUB 8360 

1036 CALL ~ 52653: FOR І = 1 ТОК: CALL ~ 32667: NEXT I 
1037 CALL - 32653: FOR I = 1 TO 8 ЖК; CALL ~ 32712: NEXT I 


1040 CALL - 32653 
1041 FOR I = 1 TO 10 ЖК; CALL - 32667: NEXT I: GOSUB 1900: CALL - 32653 
1042 FOR I = 1 TO Ki CALL - 32667: NEXT I 


1043 GOSUB 8330 

1044 CALL - 32653: FOR I = 1 TO 8 ЖК: CALL - 32712: NEXT I 
1050 CALL ~ 32653 

1052 FOR I = 1 TO 9 x K} CALL - 32667: NEXT I 

1054 60508 1900 

1055 CALL - 32653: FOR I = 1 TO K; CALL - 326673 NEXT I 
1056 GOSUB 8300 

1057 CALL - 32653: FOR I = 1 TO 8 X K? CALL — 32712: NEXT I 
1060 CALL ~ 32653 

1062 FOR I = 1 TO 9 x K: CALL — 32667: NEXT I 

1064 60508 1900 

1065 CALL - 32653: FOR I = 1 TO K? CALL - 32667: NEXT I 
1066 GOSUB 8280 


1067 
1070 
1072 
1074 
1075 
1076 
1077 
1080 
1082 
1084 
1085 
1086 
1087 
1090 
1092 
1094 
1095 
1096 
1097 
1100 
1102 
1104 
1105 
1106 
1107 
1110 
1112 
1114 
1115 
1116 
1117 
1120 
1122 
1124 
1125 
1126 
1127 
1130 
1899 
1900 
1910 
1914 
1916 
1918 
1920 
1922 
1999 
2000 
2014 
2016 
2020 
2030 
2035 
2040 
2042 
2044 
2045 
2050 
2052 
2054 
2055 
2060 
2062 
2064 
2065 
2070 


CALL - 32653: FOR I = 1 
CALL - 32653 

FOR I = 1 TO 9 Ж K: CALL 
GÜSUB 1900 

CALL - 32653: FOR I = 1 
GOSUB 8250 

CALL - 52653: FOR I = 1 
CALL - 32653 

FOR I = 1 TO 9 x K: CALL 
GOSUB 1900 

CALL - 32653: FOR I 
GOSUB 8220 

CALL - 326533 FOR I = 1 
CALL - 32653 

FOR I = 1 TO 9 Ж Ki CALL 
GOSUB 1900 

CALL - 32653: FOR I = 1 
GOSUB 8180 

CALL - 32653: FOR I 
CALL - 32653 

FOR I = 1 TO 9? ЖК: CALL 
GOSUB 1900 

CALL ~ 32653: FOR I = 1 
GOSUB 8150 

CALL ~ 32653; FOR I 
CALL - 32653 

FOR I = 1 TO 9? Ж K: CALL 
GOSUB 1900 

CALL - 32653; FOR I = 1 
GOSUB 8120 

CALL - 32653: FOR I 
CALL - 32653 

FOR I = 1 TO 9 k K: CALL 
GOSUR 1900 

CALL - 32653: FOR I 
GOSUB 8100 

CALL - 32653: FOR I = 
CALL ~ 32653: FOR I = 
RETURN 

REM Х-АХ18 MARKINGS 
CALL - 32653 

FOR I = 1 TO 2 ж K? CALL 
CALL ~ 32646 

FOR I = 1 TO 4 Ж К? CALL 
CALL - 32653 


i 


1 


n 


1 


1 


H 


í 


FOR I 1 TO é * K: CALL 
RETURN 
REM Y-AXIS 


CALL - 32646 


FOR I = 1 TO 70 Ж K: CALL 


GOSUB 2900 
GOSUB 8280 


CALL - 32653: FOR I = 1 TO ó ж K? CALL 


FOR I = 1 TO 8 x K: CALL 
GOSUB 2900 
GOSUB 8250 


CALL - 32653! FOR I = 1 TO 6 x K: CALL 


FOR I = 1 TO 8 Ж K: CALL 
GOSUB 2900 
GOSUB 8220 


CALL - 32653: FOR I = 1 TO 6 ЖК) CALL 


FOR I = 1 TO 8 k K: CALL 
GOSUB 2900 
GOSUR 8180 


CALL ~ 52653: FOR I = 1 TO 6 Ж K? CALL 


FOR I = 1 TO 8 Ж К: CALL 


TO 8 жк: CALL 


TO 
TO 


TO 
TO 


8 жк; CALL 


8 ж K? CALL 


8 жк: CALL 


8 жк: CALL 


8 Ж K? CALL 


8 * K: CALL 
9 x К; CALL 


- 827121 NEXT 


32667: NEXT I 


CALL ~ 32667: NEXT I 
- 327123 NEXT 


32667: NEXT I 


CALL - 32667: NEXT I 
- 32712: NEXT 


326671 NEXT I 


CALL ~ 32667: NEXT I 


- 527102; NEXT 


32667: NEXT I 


CALL - 32667: NEXT I 


~ $27123 NEXT 


32667: NEXT I 


CALL - 32667: NEXT I 
- 32712: NEXT 


52667: NEXT I 


CALL - 32667: NEXT I 


- 327121 NEXT 
- 326673 NEXT 


~ 32712; NEXT I 


681: МЕХТ 1 


681: NEXT I 


- 32712: NEXT I 


- 32695: NEXT 


- 32681: NEXT I 


- 326953 NEXT 


- 32681: NEXT I 


~ 326953 NEXT 


- 32681: NEXT I 


- 32695: NEXT 


- 32681: NEXT I 
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LISTING 5.2 (Continued) 


2072 
2074 
2075 
2080 
2082 
2084 
2085 
2090 
2092 
2094 
2095 
2100 
2899 
2900 
2910 
2914 
2916 
2918 
2920 
2922 
2924 
2999 
8000 
8100 
8101 
8102 
8104 
8106 
8108 
8110 
8112 
8114 
8116 
8120 
8122 
8123 
8124 
8126 
8128 
8130 
8132 
8134 
8136 
8138 
8150 
8152 
8154 
8156 
8158 
8160 
8162 
8164 
8166 
8168 
8170 
8172 
8174 
8180 
8182 
8184 
8186 


8188 


8190 
8192 


GOSUB 2900 
GOSUB 8150 


CALL - 32653: FOR I = 1 TO 6 X Ki 
FOR I = 1 TO 8 k Kt CALL - 32681; 
GOSUB 2900 

GOSUB 8120 

CALL - 32653: FOR I = 1 TO ó * Ki 
FOR I = 1 ТО 8 k Ki CALL - 326811 
GOSUB 2900 

GOSUB 8100 

CALL - 52653: FOR I = 1 TO é x Ki 
FOR I = 1 TO 8 ЖК: CALL ~ 32681: 
RETURN 

REM Y-AXIS MARKINGS 

CALL - 32653 

FOR I = 1 TO 2 k К: CALL ~ 32695: 
CALL - 32646 

FOR І = 1 TO 4 ЖК: CALL ~ 52647: 
CALL - 32653 

FOR I = 1 TO 4 Ж Ki CALL — 326673 
FOR I = 1 TO 2 Ж К: CALL - 32681: 
RETURN 

REM NUMERIC SUBROUTINES 

REM "1° 

CALL - 32646 

FOR I = 1 TO 2 k K? CALL - 32695: 
FOR I = 1 TO Кі CALL - 326673 NEXT 
FOR I = 1 ТО 4 ж К: CALL - 32712: 
FOR I = 1 ТО К: CALL - 32674: NEXT 
CALL - 32653$ FOR I = 1 TO K: CALL 
РОК I = 1 TO 4 Ж Кі CALL - 326813 
FOR І = 1 TO Ki CALL — 32667: NEXT 
RETURN 

REM *2" 

FOR I = 1 TO 4 k K: CALL - 327123 
CALL - 32646 

FOR I = 1 TO 2 Ж Ki CALL - 326951 
FOR I = 1 TO 2 k K: CALL - 32681: 
FOR I = 1 TO 2 Ж К: CALL - 326673 
FOR І = 1 ТО 2 k K? CALL - 32681! 
FOR І = 1 TO 2 ЖК: CALL - 32695: 
CALL - 32653 

FOR І = 1 ТО 2 k Kt CALL - 32667; 
RETURN 

КЕМ "3" 

CALL - 32653 

FOR І = 1 ТО 2 k K; CALL - 327121 
CALL - 32646 

FOR I = 1 TO 2 ЖК: CALL - 326951 
CALL - 32653 

FOR I = 1 TO 2 k K} CALL - 32667: 
FOR I = 1 TO 2 k Ki CALL - 327123 
CALL - 32646 

FOR I = 1 TO 2 X K? CALL - 32695: 
FOR I = 1 TO 4 k K? CALL ~ 352481: 
РОК I = 1 TO 2 ЖК; CALL - 32667: 
RETURN 

REM °4° 

CALL - 32653 

FOR I = 1 TO 4 ЖК: CALL - 32712: 
CALL - 32646 

FOR I = 1 TO 2 * K? CALL ~ 32681: 
FOR I = 170 2 ЖК: CALL - 32695: 
CALL - 32646 


CALL 
NEXT 


CALL 
NEXT 


CALL 
NEXT 


NEXT 
NEXT 


NEXT 
NEXT 


NEXT 
I 

NEXT 
I 


I 


I 


I 


ны 


I 
I 


- 326951 NEXT I 


- 32695: NEXT I 


- 32695; NEXT I 


- 32702: NEXT I 


NEXT 
I 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 


NEXT 


NEXT 
NEXT 


NEXT 
NEXT 


NEXT 


NEXT 
NEXT 


NEXT 


NEXT 
NEXT 


I 


qd q dE E 


= de 


8194 


8196 
8198 


8200 
8210 
8212 
8220 
8222 
8224 
8226 


8228 
8230 
8232 
8234 
8236 
8238 
8240 
8250 
8252 
8254 
8256 
8258 
8260 
8262 
8264 
8266 
8268 
8270 
8280 
8282 
8284 
8286 
8288 
8290 
8292 
8294 
8296 
8300 
8302 
8304 
8306 
8308 
8310 
8312 
8314 
8316 
8318 
8320 
8322 
8324 
8326 
8330 
8332 
8334 
8336 
8358 
8540 
8342 
8344 
8346 
8348 
8350 
8352 
8360 
8362 
8364 


FOR I 
CALL 
FOR I 
CALL 
FOR I 
RETURN 
REM "5° 
CALL 
FOR I 
FOR I 


CALL 
FOR I 
РОК I 
FOR I 
FOR I 
FOR 1 
RETURN 
REM °6* 
CALL 
FOR I 
CALL 
FOR I 
FOR I 
FOR I 
FOR I 
CALL 
FOR I 
RETURN 
REM  '7* 
CALL 
FOR I 
CALL 
FOR I 
FOR I 
CALL 
FOR I 
RETURN 
REM "8" 
CALL 
FOR I 
FOR I 
FOR I 
FOR I 
CALL 
FOR I 
CALL 
FOR I 
CALL 
FOR I 
FOR I 
RETURN 
REM "9" 
CALL 
FOR I 
FOR I 
CALL 
FOR I 
FOR I 
FOR I 
FOR I 
CALL 
FOR I 
RETURN 
КЕМ "O" 
CALL - 
FOR I = 


"U i tou 


ig H H kt 


ü o: uod uH Ho Y Hoid 


Hi H H P H 1 


Hü r ud Hid E HHH 1 


32646 
1 TO 4 


© 36€ 9€ 9c 3€ 


ж | 3€3* 9X 9€ ж 


ж ж 3€ 3 93€ є 


CALL 
CALL 


CALL 


CALL 
CALL 


CALL 
CALL 
CALL 
CALL 
CALL 


CALL 
CALL 
CALL 
CALL 
CALL 


CALL 


CALL 


CALL 
CALL 


CALL 


CALL 
CALL 
CALL 
CALL 


CALL 
CALL 


CALL 
CALL 


CALL 
CALL 


CALL 
CALL 
CALL 
CALL 


CALL 


CALL 


327123 
32695: 


32667: 
326813 
32695: 
52681: 
326673 


327123 


32695; 
32681; 


32667: 


327121 
326953 
32681; 
32667: 


32667: 
32681: 


32712; 
326951 


32667: 
32712; 
326953 
32681: 


326671 


NEXT 
NEXT 


NEXT 


NEXT 
NEXT 


NEXT 
NEXT 
NEXT 
NEXT 
NEXT 


NEXT 
NEXT 
NEXT 
NEXT 
NEXT 


NEXT 


NEXT 


NEXT 
NEXT 


NEXT 


NEXT 
NEXT 
NEXT 
NEXT 


NEXT 
NEXT 


NEXT 
NEXT 


NEXT 
NEXT 


NEXT 
NEXT 
NEXT 
NEXT 


NEXT 


NEXT 


4 i RE 4 


ыыы 


= + q e 


Set et кч 
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LISTING 5.2 (Continued) 


8366 FOR I 
8368 FOR I 
8370 FOR I 
8372 RETURN 
10000 DATA 
10002 DATA 
10004 DATA 
10006 DATA 
10008 ВАТА 
10010 DATA 
10012 ВАТА 
10014 DATA 


К; CALL ~ 32695: NEXT I 
1 ТО 4 Ж К; CALL — 32681: NEXT I 
К: CALL - 32667: NEXT I 


160»9,24»72»176»7»169»0»141»209,192»:14455»169»1»141» 209519251695 3 
72,169,4,74,144,253,104,233,1,208,245, 104,106, 136г 208» 223 21602729169 

1,141,209,192,169,3,72»169,4974»144,283,104»232,1,208,245,136,208 
235»96»050»0»0»0»0»0»505»0»0»0»0»0»050»0:0»50»0»50»0»505050:0:705050 
72»8,169»,112,932,224,127,40»%104,96»72»8»169,113,76»60»128,72,8,169,114 
76»60»%128»72»8,У169»115,76,60»128,72»8,169»%116,76,60,128,72,8,169»9117 
76,60,128,72,8,169,118,76,60,128,72,8,169,119,76,60,128,72,8,169,121 
76,60»128»,72,8»9169,122,76,60,128 


FIGURE 5.4 Flow chart for the digital plotter program. 
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Utilization of the Apple II in Serial Applications 89 


to make it easier for the reader to follow. Consequently, a signifi- 
cant increase in plotting speed can be realized by reducing the 
number of subroutine calls and keeping the software compacted 
as much as is possible. 

Suppose we would like to plot some of the data that we 
digitized with the high speed A/D converter and stored on disk 
back in Chapter 3. Listing 5.3 shows a program which will take the 
stored data and plot it on the digital plotter. Figure 5.7 shows a 
plot ofa sine wave plotted at both the the maximum and minimum 
plot size. The frequency of the sine wave was approximately 10 
Hz. You should be aware that the horizontal scale (for a sampling 
rate of 1000 samples per second) is such that one period of a 20 Hz 
sine would occupy one inch. Figure 5.8 shows a plot of digitized 
music which was playing on the radio while I wrote this. Note that 
it is very difficult to say much about the frequency content of the 
music from the plot. When you get to Chapter 8, I will show you 
how you can analyze data similar to this and come to some 
conclusions about the frequency spectrum. 


LISTING 5.3 BASIC program for plotting data stored on a disc. 


10 REM DIGITAL PLOTTER 

12 REM APPLE II 

14 REM К. HALLGREN 9-15-81 

16 НІМЕМ: 30000 

20 РОК I = 0 TO 160: READ К 

22 POKE ( - 32800 + 1),К 

24 NEXT I 

100 REM MAIN PROGRAM 

110 HOME : VTAB 12 

112 PRINT *'POSITION PEN IN LOWER LEFT HAND‘ 
114 PRINT “CORNER. PRESS ANY KEY TO CONTINUE. * 
116 GET A$ 

118 HOME 

120 PRINT "INPUT THE SCALE FACTOR (3<K<18)°* 
122 INPUT K 

124 IF K < 4 OR K > 17 THEN GOTO 118 

128 HOME 

140 GOSUB 1000 

150 GOSUB 2000 

200 REM PLOT DEMONSTRATION 

202 DIM X1(2048):D$ = °° 

203 PRINT D$; *BLOAD DAÀTÀC$1100),4$6100* 

205 X * 28136 

206 FOR Z = O TÜ 2047:Х = X + 2 

208 Vi = PEEK (X)8V2 = PEEK (X + 1) 

209 ТЕ Vi > 1 THEN GOTO 218 


210 X1(Z) = - (6511 - (V1 Ж 256 + V2)) / 100) 
211 NEXT Z 

212 GOTO 220 

218 Х1(2) = (6041 - 2) Ж 256 + V2) / 100) 

219 GOTO 211 


220 RESTORE : FOR I = O TO 160: READ К 
221 POKE ( - 32800 + I)*R; NEXT I 


90 


LISTING 5.3 (Continued) 


222 
224 
226 
228 
230 
232 
234 
240 
242 
248 
250 
299 
1000 
1010 
1012 
1013 
1014 
1016 
1020 
1030 


2 = 0: 


CALL - 3 


2646: FOR 


І = 


IFL- Z = O THEN GOTO 250; 
ТЕ L - Z < 0 THEN GOTO 240: 


FOR J 
CALL 
NEXT J 
GOTO 2 
FOR J 
CALL 
Z = L 
CALL 
END 
REM 
CALL 
FOR I 
FOR I 
CALL 
FOR 1 
GOÜSUR 
CALL 
FOR I 
GOSUER 
CALL 
60508 
CALL 
CALL 
CALL 
FOR I 
FOR I 
GOSUR 
CALL 
CALL 
FOR I 
GOSUR 
CALL 
GOSUB 
CALL 
CALL 
FOR I 
GOSUB 
CALL 
GOSUB 
CALL 
CALL 
FOR I 
GOSUB 
CALL 
GOSUR 
CALL 
CALL 
FOR I 
GOSUB 
CALL 
GOSUB 
CALL 
CALL 
FOR I 
GOSUB 
CALL 
GOSUB 
CALL 
CALL 
FOR I 
GOSUR 


О TO 100 * K&L = 
REM NO CHANGE IN POTENTIAL 
REM POTENTIAL IS DECREASING 


INT (10 £ K X X1(1)) 


- 32653 


= 1 ТО (L ~ Z)? REM POTENTIAL IS INCREASING 
- 32712 
48 
z1 TO (7-1) 
- 32681: NEXT J? REM MOVE PEN IN -Y DIRECTION 
- 32695: NEXT I: REM MOVE PEN IN +X DIRECTION 
X-AXIS 

- 32653 

= 1 ТО 675 + 3 ЖК: CALL - 32712: NEXT I 

= 1 ТОК + 90: CALL - 326953 NEXT I 

- 32646 

= 1 TO 100 Ж Кі CALL — 32695; NEXT I 

1900 

- 432693 

= 1 TO 3 k Kt CALL - 326671 NEXT I 

8100 

- 32653: FOR I = 1 TO 4 Ж К CALL - 32695: NEXT I 
8340 

- 52653: FOR I = 1 ТО К; CALL - 32667: NEXT I 

- 32693: FOR I = 1 TO 8 ЖК: CALL - 327123 NEXT I 
- 32653 

= 1 TO 10 жк: CALL - 32667: NEXT I: GOSUB 1900: CALL 
= 1 TO К: CALL ~ 32667: NEXT I 

8330 

- 32653: FOR I = 1 TO 8 ЖОК; CALL - 32712: NEXT I 
- 32653 

= 1 TO 9 ЖК: CALL ~ 32667: NEXT I 

1900 

- 32653; FOR I = 1 ТОК: CALL - 32667: NEXT I 
8300 

- 32653: FOR I = 1 TQ 8 ЖК: CALL - 32712: NEXT I 
- 32693 

= 1 TO 9 k K? CALL - 326673 NEXT I 

1900 

- 32653: FOR I = 1 TO K? CALL - 32667: NEXT I 
8280 

- 32653: FOR I = 1 TO 8 ЖК: CALL - 32712: NEXT I 
- 32653 

= 1 TO 9 k К; CALL - 32667: NEXT I 

1900 

- 32653: FOR I = 1 ТОК! CALL - 32667: NEXT I 
8250 . 

- 32653: РОК I = 1 TO 8 ЖОК? CALL - 527122 NEXT I 
- 32653 

= 1 TO9 ЖК: CALL - 32667: NEXT I 

1900 

- 32683: FOR І = 1 TO K; CALL - 32667: NEXT I 
8220 

- 32653: РОК I = 1 TO 8 ЖК: CALL - 32712: NEXT I 
- 32653 

= 1 TO 9 ЖК: CALL - 32667: NEXT І 

1900 

- 32653: FOR І = 1 TO K? CALL ~ 32667: NEXT I 
8180 

- 326533 FOR І = 1 TO 8 ЖК: CALL - 32712; NEXT I 
- 32653 

= 1 TO 9 Ж Kt CALL - 32667: NEXT I 

1900 


1105 
1106 
1107 
1110 
1112 
1114 
1115 
1116 
1117 
1120 
1122 
1124 
1125 
1126 
1127 
1130 
1899 
1900 
1910 
1914 
1916 
1918 
1920 
1922 
1999 
2000 
2014 
2016 
2020 
2030 
2035 
2040 
2042 


2044 
2045 


2050 
2052 
2054 
2055 
2060 
2062 
2064 
2065 
2070 
2072 
2074 
2075 
2080 
2082 
2084 
2085 
2090 
2092 
2094 
2095 
2100 
2110 
2112 
2114 
2116 
2120 
2122 
2899 
2900 
2910 
2914 


CALL - 32653: FOR I = 1 ТОК: CALL - 32667: NEXT І 
GOSUB 8150 

CALL - 32653: FOR I = 1 TO 8 k K: CALL - 32712: NEXT 
CALL - 32657 

FOR I = 1 ТО 9 k K; CALL - 326673 NEXT I 

GOSUB 1900 

CALL - 32653: FOR I = 1 TO К: CALL ~ 32667: NEXT I 
GOSUB 8120 

CALL ~ 32653: FOR I = 1 TO 8 k K; CALL — 32712: NEXT 
CALL - 32653 

FOR I = 1 TO 9 Ж K: CALL - 32667: NEXT I 

GOSUB 1900 

CALL - 32653: FOR I = 1 TO К: CALL - 32667: NEXT I 
GOSUB 8100 

CALL - 32653: FOR I = 1 TO 8 Ж К: CALL - 327123 NEXT 
CALL - 32653: FOR I = 1 TO 9 Ж Кі CALL ~ 32667; NEXT 
RETURN 

REM Х-АХІ5 MARKINGS 

CALL - 32653 

FOR I = + TO 2 Ж К: CALL - 32712% NEXT I 

CALL - 32646 

FOR I = 1 TO 4 ЖК: CALL - 32681: NEXT I 

CALL - 32653 

FOR І = 1 ТО 6 k K? CALL - 32681: NEXT I 

RETURN 

REM Y-AXIS 

CALL - 32646 

FOR I = 1 TO 40 Ж К: CALL - 32712: NEXT I 

GOSUB 2900 

GOSUB 8100 

CALL ~ 32653: FOR I = 1 TO 6 ЖК: CALL - 32695; NEXT 
FOR I = 1 TO 8 Ж К; CALL - 326811 NEXT 

GOSUB 2900 

GOSUB 8150 

CALL - 32653: FOR I = 1 TO ó ЖК: CALL - 32695: NEXT 
FOR I = 1 TO 8 жк: CALL ~ 32681? NEXT 

GOSUB 2900 

GOSUB 8120 

CALL - 32653: FOR I = 1 TO 6 ЖК: CALL ~ 326951 NEXT 
FOR I = 1 TO 8 x K; Care - 32681: NEXT 

GOSUB 2900 

GOSUB 8100 

CALL - 32653: FOR I = 1 TO é ЖК: CALL ~ 32695: NEXT 
FOR I = 1 TO 18 ж K? CALL - 32681: NEXT I 

GOSUB 2900 

GOSUB 8100 

CALL ~ 32653: FOR I = 1 ТО 6 ЖК: CALL - 32695: NEXT 
FOR I = 1 ТО 8 Ж К: CALL — 32681: NEXT 

GOSUB 2900 

GOSUB 8120 

CALL - 32653: FOR I = 1 ТО é Ж K? CALL ~ 32695: NEXT 
FOR I = 1 TO 8 k К: CALL — 32681: NEXT 

GOSUB 2900 

GOSUB 8150 

CALL - 32653: FOR І = 1 TO é ЖК; CALL - 32695: NEXT 
FOR I = 1 TO 8 ЖК: CALL ~ 32681: NEXT 

GOSUB 2900 

GOSUB 8180 

CALL ~ 32653: FOR I = 1 TO é ЖК: CALL ~ 32695; NEXT 
FOR І = 1 TO 2 k K} CALL ~ 32712; NEXT I 

CALL - 32646 

FOR I = 1 TO 40 Ж К: CALL - 32712; NEXT I 

RETURN 

REM Y-AXIS MARKINGS 

CALL - 32653 

FOR I = 1 TO2 k К: CALL - 52695: NEXT I 
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LISTING 5.3 (Continued) 


2916 
2918 
2920 
2922 
2924 
2999 
8000 
8100 
8101 
8102 
8104 
8106 
8108 
8110 
8112 
8114 
8116 
8120 
8122 
8123 
8124 
8126 
8128 
8130 
8132 
8134 
8136 
8138 
8150 
8132 
8154 
8156 
8158 
8160 
8162 
8164 
8166 
8168 
8170 
8172 
8174 
8180 
8182 
8184 
8186 
8188 
8190 
8192 
8194 
8196 
8198 
8200 
8210 
8212 
8220 
8222 
8224 
9226 
8228 
8230 
8232 
8234 


- 327021 


CALL - 32646 

FOR I = 1 TO 4 £ K: CALL - 32667: NEXT 
CALL - 32653 

FOR I = 1 TO 4 ж K: CALL - 32667: NEXT 
FOR I = 1 TO 2 жк: CALL  — 32681: NEXT 
RETURN 

REM NUMERIC SUBROUTINES 

REM "1° 

CALL - 32646 

FOR I = 1 TO 2 ж K} CALL - 32695: NEXT 
FOR I = 1 TO Ki CALL - 32667: NEXT I 
FOR I = 1 TO 4 * Қ: CALL - 32712: NEXT 
FOR I = 1 TO К: CALL - 32474! NEXT I 
CALL - 32653: FOR I = 1 TO Ki CALL 

FOR I = 1 TO 4 ЖК: CALL - 32681: NEXT 
FOR I = 1 TO К: CALL - 32667: NEXT I 
RETURN 

REM "2° 

FOR I = 1 TO 4 £ Kt CALL - 32712: NEXT 
CALL - 32646 

FOR I = 1 TO 2 x К: CALL - 32695: NEXT 
FOR I = 1 TO 2 ж К? CALL - 32681: NEXT 
FOR I = 1 TO 2 ж К? CALL — 32667: NEXT 
FOR I = 1 TO 2 ж К? CALL - 32681: NEXT 
FOR I = 1 TO 2 ж K: CALL - 32695: NEXT 
CALL - 32653 

FOR I = 1 TO 2 k K? CALL - 32667: NEXT 
RETURN 

REM °3° 

CALL - 32653 

FOR I = 1 TO 2 ж K} CALL - 32712: NEXT 
CALL - 32646 

FOR I = 1 TO 2 * Kt CALL - 32695: NEXT 
CALL - 32653 

FOR I = 1 TO 2 Ж Kt CALL - 32667: NEXT 
FOR I = 1 TO 2 Ж Kt CALL - 32712: NEXT 
CALL - 32646 

FOR I = 1 TO 2 Ж Kt CALL - 22695: NEXT 
FOR I = 1 TO 4 Ж K: CALL - 22681: NEXT 
FOR I = 1 TO 2 ж К: CALL - 326673 NEXT 
RETURN 

REM "4" 

CALL - 32653 

FOR I = 1 TO 4 Ж К: CALL - 327122 NEXT 
CALL - 32646 

FOR I = 1 TO 2 £ K: CALL - 32681: NEXT 
FOR I = 1 TO 2 ж K: CALL - 32695: NEXT 
CALL - 32646 

FOR I = 1 TO 2 ж K: CALL - 327122 NEXT 
CALL - 32646 

FOR I = 1 TO 4 ЖК: CALL - 32681: NEXT 
CALL - 32653 

FOR I = 1 TO 2 X Ki CALL - 32667: NEXT 
RETURN 

REM "5" 

CALL - 32653 

FOR I = 1 TO 4 ЖК: CALL — 32712: NEXT 
FOR I = 1 TO 2 £ K} CALL - 32695! NEXT 
CALL - 32646 

FOR I = 1 TO 2 k К: CALL — 32667: NEXT 
FOR I = 1 TO 2 жк: CALL - 32681: NEXT 
FOR I = 1 TO 2 ж K} CALL - 32695: NEXT 
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8236 FOR I = 1 TO 2 ж К: CALL - 326813 NEXT I 
8238 FOR I = 1 TO 2 ЖК; CALL ~ 32667: NEXT I 


8240 RETURN 
8250 REM "ó" 
8252 CALL - 32653 


8254 FOR I = 1 TO 2 k K} CALL - 32712? NEXT I 
8256 CALL - 32646 

8258 FOR I = 1 TO 2 Ж K: CALL — 32695: NEXT I 
8260 FOR I = 1 TO 2 ЖК? CALL - 32681: NEXT I 
8262 FOR I = 1 TO 2 ЖК; CALL - 326673 NEXT I 
8264 FOR I = 1 ТО 4 Ж K? CALL — 32712; NEXT I 
8266 CALL - 32653 

8268 FOR I = 1 TO 4 x K: CALL - 32681? NEXT I 


8270 RETURN 
8280 REM "7" 


8282 CALL - 32653 
8284 FOR I = 1 TO 4 ЖК: CALL ~ 32712? NEXT I 
8286 CALL - 32646 
8288 FOR I = 1 TO 2 * Ki CALL - 32695: NEXT I 
8290 FOR I = 1 ТО 4 Ж K; CALL - 32681: NEXT I 
8292 CALL - 32653 
8294 FOR І = 1 TO 2 x K? CALL - 32667: NEXT I 


8296 RETURN 
8300 REM "8" 


8302 CALL - 32646 
8304 FOR І = 1 ТО 4 k К: CALL — 32712: NEXT I 
8306 FOR I = 1 TO 2 Ж K? CALL - 32695: NEXT І 
8308 FOR І = 1 TO 4 ЖК! CALL - 32681: NEXT I 
8310 FOR I = 1 ТО 2 k K: CALL - 32667: NEXT I 
8312 CALL - 32653 
8314 FOR І = 1 TO 2 ж К; CALL - 32712: NEXT I 
8316 CALL - 32646 
8318 FOR I = 1 TO 2 k K? CALL - 32695: NEXT I 
8320 CALL - 32653 
8322 FOR I = 1 TO 2 ЖК: CALL - 32667: NEXT I 
8324 РОК I = 1 TO 2 k K? CALL - 32681? NEXT I 


8326 RETURN 
8330 КЕМ "9" 


8332 CALL - 32653 

8554 FOR I = 1 TO 2 ЖОК; CALL - 32712: NEXT I 
8336 FOR I = 1 TO 2 * Ki CALL - 32695: NEXT I 
8338 CALL - 32646 

8340 FOR I = 1 TO 2 k K? CALL - 32667: NEXT I 
8342 FOR I = 1 ТО 2 k K? CALL - 32712: NEXT I 
8344 FOR I = 1 TO 2 x Ki CALL - 326953 NEXT I 
8346 FOR I = 1 TO 4 x K; CALL - 32681: NEXT I 
8348 CALL - 32653 

8350 FOR I = 1 TO 2 k K? CALL — 32667: NEXT I 


8352 RETURN 
8360 REM "0° 


8362 CALL - 32646 

8364 FOR I = 1 TO 4 x K? CALL - 32712: NEXT I 
8366 FOR I = 1 TO 2 Ж К CALL - 32695: NEXT I 
8368 FOR I = 1 TO 4 жк: CALL - 32681: NEXT I 
8370 FOR I = 1 TO 2 x K? CALL - 32667: NEXT I 


8372 RETURN 

10000 DATA 160,9,24,72,176,7,169,0,141,209,192,144,5,169,1,141,209,192,169,3 
10002 DATA 72,169,4,74,144,253,104,233,1,208,245,104,106,136,208,223,160,2,169 
10004 DATA 1,141,209,192»169»,3,72»169у,4,»74»144,253,104»253»,1,208,245»136,208 
10006 ВАТА 255,96»0»0»0»0»0»0»0»0»0»,0»0»0»0%0»0»0»%0»90»0,О,0,0»9090»90,90»90»90 

10008 DATA 272»8»,169,112,32»224»9127»,40»104»96,72»8»169,113,76»60»128,72»8,169»114 
10010 DATA 76,60,128,72,8,169,115,76,60,128,72,8,169,116,76,60,128,72,8,169,117 
10012 DATA 76,60,128,72,8,169,118,76,60,128,72,8,169,119,76,60,128,72,8,169,121 
10014 ВАТА 76,60,128,72,8,169,122,76,60,128 
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FIGURE 5.7 Sine wave (10 Hz) digitized at 1000 samples per second. 


FIGURE 5.8 Music digitized at 1000 samples per second. 
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There will be times when you will want to use your Apple II as a 
video terminal to connect into a large, host computer network. 
Networks that provide a message retrieval system have been 
around for quite a while, and we are now beginning to see a 
proliferation of information services which provide local, na- 
tional, and international news, weather, sports, and investment- 
related topics. In the future, you will probably have access to 
information suppliers dealing with banking, car rental, classified 
ads, and reservation services. Individuals usually have access to 
one of these networks through the use of a modem connected 
between a video terminal and their telephone. A modem is a 
device which performs two basic functions (see Figure 5.9): 


FIGURE 5.9 Block diagram of a modem. 
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1. It accepts digital input from a computer and converts the pulses 
into analog-frequency signals for transmission over the telephone 
lines. 

2. Itconverts analog-frequency signals from the telephone into digital 
signals which the computer can process. 


Modems that transmit information at 300 bits per second are 
readily available through a multitude of suppliers for under $200. 
You can use the Apple П as a video terminal by building a bidirec- 
tional serial interface and writing some software. You could ac- 
complish the same thing by buying a commercial serial interface 
board, but you can save a few dollars by building your own. You 
should realize that my approach minimizes hardware and maxi- 
mizes software, thus saving money at the expense of versatility. 
Figure 5.10 shows the hardware that will be needed, and the 
connections that will need to be made to the Apple II and to the 


FIGURE 5.10 Video terminal interface circuit and system connections. 
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modem. You should recognize the circuits as ones that were 
developed and described in Chapter 2. Once you have constructed 
the interface and made the interconnections, perform the follow- 
ing tests to make sure that everything is working correctly: 


1. If you execute the following BASIC statement the output of IC1 
should go to +10 volts. 
POKE - 16143,0 
2. If you execute the following BASIC statement the output of IC1 
should go to —10 volts. 
POKE — 16143,1 
3. If you execute the following BASIC statements the number which 
will be displayed on the video monitor should change from a 1 to a 
0 when you apply + 5 volts to the SERIAL INPUT line. 
100K- PEEK (-16143) 
110 IF K« 128 THEN PRINT “0” 
120 IF К> 128 THEN PRINT “1” 
130 GOTO 100 


Listing 5.4 shows the machine language program (see Figure 5.11 
for the program flow chart) which allows the Apple II to transmit 
and receive serial data at 300 bits per second. Listing 5.5 shows 
the program converted over to a series of BASIC statements. 


LISTING 5.4 Machine language routine for the bi-direction serial interface. 


300 AD 00 CO LDA $С000 SAMPLE KEYBOARD 
303 48 PHA SAVE A REGISTER 
304 сә 80 СМР #$80 CHECK FOR CHARACTER 
306 30 38 BMI $340 JUMP TO RECEIVE 
308 A9 00 LDA  $$00 

30A 8D 10 00 STA $C010 RESET KEYBOARD 

30D 68 PLA RESTORE A REGISTER 
30E 29 7F AND  $$7F 

310 A0 OB LDY %50в 11 PITS 

312 18 CLC CLEAR CARRY 

313 48 PHA SAVE A REGISTER 
314 BO 07 BCS $310 MARK 

316 A9 00 ЮА #$00 

318 8р Е1 СО STA $COF1 SEND SPACE 

31B 90 05 BCC $322 

31D A0 01 LDA $$01 

31Е 8D Fl CO STA $С0Р1 SEND MARK 

322 20 30 03 JSR $330 JUMP TO DELAY 

325 68 PLA RESTORE А REGISTER 
326 6A ROR GET NEXT BIT 

327 88 DEY ALL BITS SENT 

328 DO E9 BNE $313 JUMP IP NOT 

32A 4C 40 03 JMP $340 JUMP TO RECEIVE 
32D EA NOP 


32E EA NOP 
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LISTING 5.4 (Continued) 


32F EA NOP 

330 A9 4D LDA %54р LOAD A REGISTER 
332 48 РНА SAVE А REGISTER 
333 A9 20 LDA %520 LOAD REGISTER 

335 4a LSR SHIFT RIGHT 

336 90 FD ВСС $335 JUMP IF NOT ZERO 
338 68 PLA RESTORE А REGISTER 
339 E9 01 SBC #$01 SUBTRACT ONE 

33B DO Е5 BNE $332 JUMP IF NOT ZERO 
33D 60 RTS RETURN 

33E EA NOP 

33F EA NOP 

340 А9 00 ГОА %500 LOAD А REGISTER 
342 8D 80 03 STA $380 TEMP А REGISTER 
345 A2 08 LDX #$08 8 DATA BITS 

347 AD Fl CO LDA $С0Р1 GET RECEIVED CHARACTER 
34A 2A ROL ROTATE LEFT 

34B BO B3 BCS $300 JUMP TO SEND 

34D A9 26 LDA #526 1/2 CHARACTER DELAY 
34F 48 PHA 

350 A9 20 LDA #$20 

352 4A LSR 

353 90 FD BCC $352 

355 68 PLA 

356 E9 01 SBC #$01 

358 20 F5 BNE $34F 

35A 20 30 03 JSR $330 JUMP TO DELAY 

35D AD Fl CO LDA $С0Р1 GET CHARACTER 

360 29 80 AND #$80 GET MSB 

362 OD 80 03 ORA $380 OR A REGISTER WITH TEMP 
365 8D 80 03 STA $380 SAVE IN TEMP 

368 18 CLC CLEAR CARRY 

369 6E 80 03 ROR $380 ROTATE TEMP RIGHT 
36C CA DEX ALL BITS RECEIVED? 
36D 20 ЕВ BNE $35A BRANCH IF NOT 

36F 09 80 ORA #$80 SET MSB 

371 c9 cO СМР #$CO CHECK FOR CONTROL CHARAC 
373 FO 03 BEQ $378 JUMP IF NOT 

375 20 FD FB JSR $FBFD DISPLAY ON VIDEO 
378 20 30 03 JSR $330 JUMP TO DELAY 

37B 4c 00 03 JMP $300 JUMP TO SEND 


I will describe the startup procedure that I use for interacting 


with the university computer system. Since operating systems 
will differ from location to location, this should be used as an 
example only. 


1. 
2. 


3. 


4. 


Load and execute the BASIC program. 

Dial up the computer facility, listen for the carrier tone, and insert 
the handset into the modem (this assumes that you have not pur- 
chased a direct-connect modem). 

Press the RETURN key. If the host does not respond, press the 
RETURN key again. 

Once the host responds, sign on in the normal way. 


Output а 
character? 


Input a 
character? 


Receive the 
character 


Display the 
character 


FIGURE 5.11 Video terminal program flow chart. 


5. Limitthe right hand margin to 38 characters to prevent losing data. 
Double the delay time before printing is resumed after a line feed 
and a carriage return to avoid losing characters. 


6. To abort an operation, press the ESC key. 


100 


LISTING 5.5 The machine language program in Listing 5.4 incorporated into a 
BASIC program. 


100 REM APPLE II VIDEO TERMINAL 


110 REM R. 


HALLGREN, 9/17/81 


120 FOR 1=0 TO 125:READ K:POKE (768+Т),К:МЕХТ I 


126 HOME 


128 PRINT "DIAL UP THE HOST COMPUTER AND PRESS THE 


'RETURN' KEY" 


130 FOR Isl TO 5:PRINT "":NEXT I 

140 PRINT "REMEMBER TO LIMIT THE RIGHT MARGIN" 
142 PRINT "TO 36 CHARACTERS, AND TO DOUBLE THE" 
144 PRINT "DELAY THAT COMES AFTER A LINE FEED" 
146 PRINT "AND А CARRIAGE RETURN." 

150 CALL 773 


199 END 
10000 DATA 


10002 DATA 
10004 DATA 
10006 DATA 
10008 DATA 
10010 DATA 


10012 DATA 


173,0,192,72,201,128,48,56,169,0,141,16,192,104, 
41,127,160,11,24,72 
176,7,169,0,141,241,192,144,5,169,1,141,241,192, 
32,48,3,104,106,136 
208,233,76,64,3,234,234,234,169,77,72,169,32,74, 
144,253,104,233,1 
208,245,96,234,234,169,0,141,128,3,162,8,173, 
241,192,42,176,179,169 
38,72,169,32,74,144,253,104,233,1,208,245,32,48, 
3,173,241,192,41,128 
13,128,3,141,128,3,24,110,128,3,202,208,235,9, 
128,201,192,240,3,32 

253,251,32,48,3,76,0,3 


BIOFEEDBACK 


Have you ever thought about the number of complex operations 
that your body is required to perform in the course of a “normal” 
day of activity? While we often take for granted our ability to 
perform complex, coordinated muscular activity, this ability re- 
sults from years of trial-and-error type training. An infant has very 
little muscular control over its body, and it develops this control 
by constantly practicing. Most of us have observed a young child 
learning how to walk; repetitiously standing, taking a few steps, 
and falling down. 

The human brain is composed of billions of specialized cells 
called neurons. Neurons are designed to transmit information 
between peripheral sensory receptors and the brain, to analize 
this information, and to transmit commands, if necessary, back to 
muscles. For example, when you touch an object, there are sen- 


101 


102 Biofeedback 


sory receptors in the skin that send the brain coded information 
related to the temperature of the object. The brain then processes 
the information and decides what course of action should be 
taken. Coded information is then sent to the muscles in the hand 
and arm. The possible result is that the hand may be jerked back 
from a very hot object, or left in place if the object is cool. 

The body is equipped with many similar neuromuscular 
pathways that never get developed because there is no common | 
use forthem. It is no big trick to learn how to wiggle your ears; you 
just spend some time in front of a mirror teaching yourself which 
nerves are connected to that particular set of muscles. The normal 
process of learning requires that feedback accompany the be- 
havior pattern that is being established. That is, you normally 
expect to see, hear, or feel the results of a particular action. It is 
difficult to learn how to play the violin if you are deaf. The normal 
learning experience requires that auditory feedback accompany 
manipulation of the bow. 

Many functions of the body, such as heart rate and skin 
temperture—long thought to be under exclusive control of the 
autonomic nervous system—have been found to be controllable. 
Training involuntary muscles is normally not possible, because 
we lack a natural feedback path to tell us how we are affecting the 
system. However, with the aid of sensitive electronic equipment, 
physiological changes that a person is normally incapable of 
sensing can be altered and controlled. Thus, the term biofeedback 
is used when a biological process is measured, and the results of 
the measurement are fed back to the individual. Through a train- 
ing experience, the individual can learn to control phenomena 
such as heart rate and skin temperature. 


SKIN TEMPERATURE 


Heat is produced in the human body by muscular exercise, as- 
similation of food, and all the processes that contribute to the 
basal metabolic rate. Heat is lost to the surroundings through 
radiation, conduction, and vaporization of water in the nasal 
passages, and from the skin. Humans—and vertebrates in 
general—have multiple mechanisms for regulating heat loss so 
that the body remains at an almost constant temperature under 
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normal conditions. One of the primary mechanisms for heat regu- 
lation is through control of skin temperature. Skin temperature is 
controlled by regulating the amount of blood that is allowed to 
flow to the skin. Cold hands and feet are a common phenomena 
resulting from peripheral vasoconstriction, resulting from a sym- 
pathetic nervous system command to contract the smooth mus- 
cles lining peripheral blood vessels, thus reducing blood circula- 
tion and skin temperature at the extremities and conserving heat. 

Peripheral skin temperature is influenced by a number of 
factors. 


1. Stress causes fingertip temperature to drop several degrees below 
room temperature. 

2. A variety of drugs, including tobacco, have an influence on vaso- 
constriction. 

3. Vigorous activity increases peripheral circulation, while inactivity 
decreases circulation. 


We will be using the low speed A/D converter that we developed 
in Chapter 3 along with an analog circuit to interface a thermistor 
to the Apple II. Figure 6.1 shows the schematic diagram of the 


FIGURE 6.1 Schematic diagram of the analog circuitry for the biofeedback temperature 
monitor. 
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analog circuitry. This design uses a thermistor, a device whose 
resistance is a function of its temperature, in one leg of a bridge 
circuit. Bridge circuits allow us to detect small changes in resist- 
ance by measuring imbalance in the bridge with a differential 
amplifier. 

Thermistors are nearly ideal components mechanically. 
They are usually small in size, rugged, and they demonstrate the 
reliability and extended life common to semiconductor products. 
By using appropriate values of resistance in the bridge circuit, 
small changes in temperature can be made to produce large 
changes in output voltage. Since the output voltage is amplified 
by a differential amplifier (see Appendix B), there will be little 
problem of noise being introduced into the measurements. 

Looking at Figure 6.1, IC1 is a voltage regulator which pro- 
vides a stable reference voltage to the bridge circuitry. The output 
voltage from IC1 has been reduced to minimize temperature varia- 
tions that might occur as a result of self-heating in the thermistor. 
Such variations, appearing as a slow drifting of the output signal, 
are undesirable. IC2 is a high gain, differential amplifier that is 
used to measure the difference between voltages V1 and V2. 

Once you have built the analog circuit, you should make the 
following adjustments and voltage checks: 


1. The voltage at pin 2 on IC1 should be equal to +2.5 volts. 


2. Short the points labled V1 and V2 together and adjust R1 until the 
voltage at E1 is equal to 0 volts. This ensures that the output of the 
differential amplifier will be equal to 0 when the inputs are equipo- 
tential. 


3. Remove the short from the points labled V1 and V2, hold the 
thermistor in your mouth for one minute, and adjust R2 (the temp- 
erature calibration adjustment) until the output voltage, E1, is 
equal to + 1.07 volts. You should realize that we are going to be 
interested in relative changes in temperature and not in absolute 
values of temperature, so calibration will not be precisely per- 
formed. 

4. Connect the output, E1, to the input of the A/D converter. Load and 
execute BASIC program 1 (see Listing 3.3). The video display 
should indicate that you are measuring a voltage that increases 
when you hold the thermistor between your fingertips and de- 
creases when you let go of it. 
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5. Loadand execute BASIC program 2 (see Listing 6.1 and Figure 6.2). 
You should see temperature plotted as each sample is taken. The 
plot should move toward the top of the screen for increases in 
temperature and toward the bottom of the screen for decreases in 
temperature. Figure 6.3 shows a data plot that results from first 
putting the thermistor into, and then taking the thermistor out of, 
the author’s mouth. Notice how the temperature of the thermistor 
goes below the room temperature as a result of evaporation. 


LISTING 6.1 BASIC program for biofeedback skin temperature experiments. 


10 REM LOWSPEED A/D CONVERTER #1 

20 КЕМ В. HALLGREN»APPLE ІІ,10-22-81 

22 FOR І = 16384 TO 16586! READ D: POKE 1,0: NEXT I 

24 GOSUB 1000 

30 REM CONVERT ONE SAMPLE 

32 НСК : HCOLOR= З 

34 MHPLOT 0,0 TO 0,150: HPLOT TO 270,150 

40 FOR I = 1 TO 270 

SO CALL 16384 

70 X4 = PEEK (18944)3Х3 = PEEK (18945) 

72 X2 = PEEK (18946)3Х1 = PEEK (18947) 

73 W4 = X4 

74 IF X4 > 7 THEN X4 = 0 

75 IF X4 s O THEN GOTO 80 

76 X4 = 1 
= STR$ (X4) + ТКФ (X3) + STR$ (X2) +  STR$ (X1) 

81 X= - VAL (X$) / 1000 

82 IF X4 = О THEN W4 = U4 - 8 

83 IF W4 > З THEN X = -X 

90 HPLOT І»(150 - 100 Ж X): FOR J = O TO 500: NEXT J? NEXT I 

92 GOTO 30 

99 END 

1000 REM INTRODUCTION 

1010 HOME 

1030 PRINT “THIS IS DEMONSTRATION PROGRAM FOR" 

1032 PRINT "CONTROLLING SKIN TEMPERATURE USING" 

1034 PRINT 'BIOFEEDRACK ІМ CONJUNCTION WITH THE" 

1036 PRINT "LOW SPEED A/D CONVERTER AND А ВАТА“ 

1038 PRINT “PLOT ROUTINE.‘ 

1040 PRINT **: PRINT °° 

1042 PRINT "THE PROGRAM WILL PLOT A POINT EVERY"?! PRINT "SECOND" 

1044 PRINT °*3 PRINT °° 

1046 PRINT "PRESS THE SPACE BAR TO CONTINUE* 

1050 GET K$ 

1052 IF K$ < >” * THEN GOTO 1050 

1099 RETURN 

2000 DATA 141,176,73,142,177,73,140,178,73,8,162,0,169,0,133 

2002 DATA 10»1695»74»133»11»76»64564»0»0»0»0»0»0»50»50»50»050;0 

2004 DATA O050»173»176»73»174»1775,735172»178»73»40596 

2006 DATA 234»234»234»234»234»234»234»234»2345» 2345 2:34 

2008 DATA 234,234,234,234,234,141,242,192,173,241,192 

2010 DATA 41,128,201,128,208,247,173,240,192,141,162 

2011 ГАТА 73,41,128,201,128,208,244,173 

2012 DATA 162,75,41,15,129,10,164,10,200,›,132,10,208 

2014 DATA 5,164,11,200,132,11,173,240,192,141,162,73 

2016 DATA 41,64,201,64,208,244,173,162,73, 41» 155129 

2018 DATA 10»164»10»,200»132,10,208»5,164»11,200»132 

2020 DATA 11»173,240»192»141»162»73»41»32»201532 

2022 DATA 208,244»173»162,73,41»15»129,10»164»10 

2024 DATA 200,132,10,208,5,164,11,200,132,11,173 

2026 DATA 240,192,141,162,75,41,16,201,16,208,244 

2028 DATA 173,162,73,41,15,129,10,164,10,200,132 

2030 DATA 10,208,5,164,11,200,132,11,76, 37,64 
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31 Initialize 
graphical 
display 


32 Time to take 
a sample? 


S0 Take a sample 


88 Plot data 
point 


90 А11 points 
plotted? 


FIGURE 6.2 Flow chart of the BASIC program. 


Figure 6.4 shows a diagrammatic representation of the experi- 
mental setup. You should tape the thermistor to the index finger 
on your dominant hand (the hand you write with). You will “see” 
temperature changes which are too small for you to detect, but 


FIGURE 6.3 Graphic display resulting from placing the thermistor in 
the author's mouth and then removing it. 


FIGURE 6.4 Diagrammatic representation of temperature feedback. The electronic measur- 
ing system informs the subject of temperature changes so small that they are normally not 


sensed. 
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HEART RATE 


which are easily detected by the thermistor. The graphic display 
on the CRT will serve as the feedback link to your central nervous 
system. 

First seat yourself in a comfortable chair and, once you are 
relaxed, imagine that your hand has been placed in hot water. 
With some practice, you should be able to precisely control an 
increase or decrease in temperature. Within a few minutes you 
should be able to raise or lower your temperature one or two 
degrees merely by “telling” yourself to raise or lower your finger 
temperature. After some practice, you should be able to increase 
that variation to ten degrees. 

You may want to monitor your temperature while watching а 
television program, or try taping the thermistor to another part of 
your body—such as your face—to see how vasoconstriction af- 
fects skin temperature in different locations. 


Heart rate changes as a function of many factors. Emotions such as 
anger and excitement cause an increase in heart rate. Emotions 
such as fear and grief cause a decrease in heart rate. The body has 
several regulatory mechanisms which monitor the concentration 
of carbon dioxide in the blood and the distention of blood vessels, 
and adjust heart rate to maintain cardiovasular system parameters 
within acceptable limits. We normally do not think of regulating 
our heart rate, primarily because there is not an obvious pathway 
for feedback. However, we can use an electronic measuring sys- 
tem to allow us to monitor our heart rate and to allow us to 
investigate normal responses to such things as breathing and 
relaxation. 

We can conveniently get an indirect measurement of heart 
rate by using a system called photoplethysmography. Light can 
easily be transmitted through capillary beds existing in the ear- 
lobe or the fingertip. As arterial pulsations cause the blood vol- 
ume in the capillary bed to increase and decrease, the amount of 
scattered, absorbed, and reflected light changes. This phenomena 
can be used to give us a signal which varies as a function of heart 
rate. Such a system is sensitive to motion artifacts and performs 
best when the subject is sitting quietly. 
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FIGURE 6.5 Diagrammatic representation of heart rate feedback. The electronic measuring 
system informs the subject of changes too small to be normally sensed. 


Figure 6.5 shows a diagrammatic representation of the experi- 
mental setup. We will be using the capillary bed in your fingertip 
to monitor pulsations in blood volume due to contractions of the 
cardiac muscle. A pulse detector and an analog circuit will be 
used to detect, filter, and amplify the pulses so that they can be 
measured by the low speed A/D converter. The computer will then 
count the pulses and present your heart rate in the form of a 
graphic display. 

Figure 6.6 shows a schematic diagram of the analog circuitry 
that we will use to interface the pulse detector to the low-speed 
АШ converter. You should notice that it is a modification of the 
circuit that we used for measuring skin temperature. This is 
primarily because a photocell, a device whose resistance changes 
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Clairex Electronics, 560 South Third Ave., Mount Vernon, N.Y. 10550. 


FIGURE 6.6 Schematic diagram of the analog circuitry for biofeedback heart rate monitor. 


as a function of the intensity of light falling upon its surface, is 
being used to detect changes in light passing through the capil- 
lary bed in the finger. By putting the photocell into a bridge 
circuit, small changes in resistance that occur due to small 
changes in light intensity can be made to produce large changes in 
output voltage. 

Looking at Figure 6.6, IC1 is a voltage regulator which pro- 
vides a stable reference voltage to the bridge circuitry. Since we 
are counting pulses and not really measuring a value of resistance, 
we do not have to be overly concerned about output voltage drift 
due to internal heating of the photocell. Consequently, we do not 
have to reduce the output of the regulator, and can thus obtain 
increased sensitivity from the output of the bridge. IC2 is a high- 
gain, differential amplifier that is used to measure the difference 
between voltages V1 and V2. Capacitors C1 and C2 are included to 
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FIGURE 6.7a Position of the photocell relative to the lamp. 


block the d.c. component of the amplifier to limit the output 
voltage, increasing the sharpness of the voltage change that oc- 
curs when the heart beats. 

You should first concern yourself with the construction of 
the pulse detector. Figure 6.7a shows a drawing indicating the 
position of the photocell relative to the light source. The distance 
between the photocell and the light source will depend on the size 
of your fingers. To keep this distance to a minimum, make the hole 
just large enough to fit the smallest finger on your hand, usually 
the little finger. To get enough intensity from the lamp you will 
need a 3-volt d.c. supply that can provide about 250 milliamperes. 
You can use two D-cell batteries connected in series, or you can 
build a 5-volt supply from Appendix C and use a 10 ohm, 1 watt 
resistor in series with the lamp. I have shown the latter. To 
simplify construction as much as possible, I mounted the photo- 
cell and the lamp in a small block of wood. 

Once you have built the pulse detector and the analog circuit, 
you should make the following adjustments and voltage checks: 


1. The voltage at pin 2 on IC1 should be equal to +2 volts. 

2. Short the points labled V1 and V2 together and adjust R1 until the 
voltage at E1 is equal to 0 volts. 

3. Remove the short from the points labeled V1 and V2, and connect 
the output, E1, to the input of the A/D converter. Load and execute 
BASIC program 3 (See Listing 6.2). With the lamp disconnected 
from the lamp supply, you should seethe graphics display periodi- 
cally flashing. When the lamp is connected to its power supply, the 
flashing should stop. 

4. Because of the simplicity of the design, you are going to have to 
develop some skill in positioning your finger in the pulse detector 
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LISTING 6.2 BASIC program for biofeedback heart rate system set-up. 


10 REM BIOFEEDBACK? HEART RATE SYSTEM SET UP 

20 REM R. HALLGREN» APPLE II» 11-05-81 

22 FOR І = 16384 TO 16458: READ D: FOKE Т,П: NEXT I 

24 GOSUB 1000 

200 REM SAMPLE INTERFACE 

210 HOME + VTAB 12 

220 CALL 16384 

230 PRINT “ТНКОВ" 

232 FOR I = 1 TO 100: NEXT I 

240 GOTO 200 

1000 REM DEMONSTRATION 

1010 HOME 

1020 PRINT "THIS FROGRAM WILL RESPOND TO THE PULSE" 

1022 PRINT “DETECTOR OUTFUT.*: РАТМТ °° 

1024 PRINT "YOU WILL START THE TEST WITH THE LAMP": PRINT "TURNED OFF." 
PRINT "°? PRINT °° 

1026 PRINT “AFTER DETERMINING THAT THE INTERFACE IS" 

1028 PRINT "PERFORMING O.K.» YOU WILL TURN ON THE" 

1030 PRINT “LAMP АМП SEE IF THE SOFTWARE IS O.K.*: PRINT '*i PRINT *' 

1032 PRINT "PRESS THE SPACE ВАК TO CONTINUE" 

1034 GET K$? IF K$ < > " * THEN GOTO 1034 

1099 RETURN 

10000 DATA 14191769739142917777391409178 2739871417242 9192717359241 919294 


1,128 

10002 BATA 201,128,208,247,173,240;192,141,162,73,41,128,201,128,208,24 
4,173 

10004 DATA 162,73,41,4»201,0,208»225,173,240»192,141»162,73,41,32,201 
»32,208,244 

10006 Пата 173,162у73,41,15»,201»,2»,48»202,173,176»73,174,177»,73,172 
7178173740796 


to ensure consistent operation. We learned in the previous section 
that cold hands are a good indication of poor circulation. Poor 
circulation means that blood flow is reduced. This means that the 
signals from the pulse detector will be small, resulting in erratic 
operation. If your hands are cold, hold them under warm water for a 
few minutes. Now, insert your little finger into the pulse detector. 
Figure 6.7b shows the relative position of the finger with respect to 
the photocell. As you insert your finger, you should see the display 


FIGURE 6.7b Position of the finger relative to the photocell. 
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flash in response to the motion of your finger. After you have 
settled down, you should see the graphics display periodically 
start to pulse in response to the beat of your heart. Your finger 
should rest lightly upon the face of the photocell. Too much pres- 
sure will stop circulation and cause the display to skip beats. 


5. Load and execute the BASIC program 4 (See Listing 6.3, Listing 6.4, 
and Figure 6.8). The program should flash in response to each heart 
beat, and should display a graphical representation of pulse rate in 
beats per minute. Figure 6.9a shows a graphical display of the 
author's resting heart rate. 


LISTING 6.3 BASIC program for biofeedback heart rate experiments. 


10 REM BIOFEEDBACK$ HEART RATE 

20 REM К. HALLGREN» APPLE II» 11-05-81 

21 DIM У(300):0(1) = 1234(2) = 12 

22 FOR I = 16384 TO 16459: READ D? FOKE 1,0: NEXT I 

23 POKE 1022»00: POKE 10235,03: FOKE 1016,72: FOKE 1017,8 

24 РОКЕ 1018,88: РОКЕ 1019,40: РОКЕ 1020,104: РОКЕ 1021,96 

26 POKE 768,8: POKE 769,238: FOKE 770,15: POKE 771,3: FOKE 772,40: FOKE 
773,165: POKE 774,69: POKE 779564 

27 CALL 1016 

29 GOSUB 1000 

30 HGR 1 HCOLOR= 3 

32 НРЬОТ 0,0 TO 0,150: HPLOT TO 270,150 

50 REM AVERAGE HEART RATE 

52 FOR I = 3 TO 270 

53 Q = O; POKE 783,0 

56 GOSUB 1100 

s8a@=Qti 

60 X = PEEK (783): IF X < 30 THEN GOTO 56 

70 V(I) = (V(I - 1) + (I - 2) + 2 x Q) / 3 

80 HPLOT І»(150 - 6 ж U(1)) 

90 NEXT I 

200 REM PLOT AVERAGE 

1000 REM INTRODUCTION 

1010 HOME 

1020 PRINT "THIS IS A DEMONSTRATION PROGRAM FOR’ 

1022 PRINT "CONTROLLING HEART RATE USING" 

1024 PRINT "BIOFEEDBACK IN CONJUNCTION WITH THE LOW’ 

1026 PRINT "SPEED A/D CONVERTER AND А BATA FLOT*? PRINT *ROUTINE.*? PRINT 
..% PRINT "° 

1028 PRINT "THE PROGRAM WILL PLOT А POINT"; PRINT *10 SECONDS.*? PRINT ° 
.% PRINT °° 

1030 PRINT "PRESS THE SPACE BAR TO CONTINUE." 

1032 GET K$? IF K$ < > * ° THEN GOTO 1032 

1099 RETURN 

1100 REM SAMPLE PULSE DETECTOR 

1110 CALL 16384 

1120 FOR R = 1 TO 50: NEXT К 

1199 RETURN 

10000 ВАТА 141»176»73»142»177»73»140»:178»73:8»88;141»242» 19251735 241» 
192»41»128 

10002 DATA 201,128,208,247,173,240,192,141,162,73,41,128,201,128,208,24 
4,173 

10004 DATA 162,73,41,4,201,0,208,223,173,240,192,141,162,73,41, 32, 201» 3 
2,208,244 

10006 DATA 173»162»73»41»15»,201,2,48,202,173,176,73,174»177,73,172,178» 
73, 40,96 
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4000- 8D BO 49 STA $4980 
4003- ВЕ B1 49 STX $49B1 
4006- 8C в2 49 STY $49B2 
4009- 08 PHP 

4008- 80 F2 CO STA $COF2 
400D- AD Рі со LDA $COF1 


4010- 29 80 AND #380 
4012- cC? 80 CMP %%80 
4014- no F7 BNE $400D 


4016- AD FO CO LBA %СОҒО 
4019- 8n А2 49 STA $4942 


401C- 29 80 AND #380 
401E- C? 80 CMP +%80 
4020- DO F4 BNE $4016 
4022- AD А2 49 LDA %49А2 
4025- 29 04 AND #304 
4027- C9 00 CMP #$00 
4029- DO DF BNE $4004 


402B- AD FO CO LDA $COFO 
402Е- 8D А2 49 STA $49A2 


4031- 29 20 AND #$20 
4033- С9 20 CMP #$20 
4035- nO F4 BNE $402B 
4037- AD А2 49 LOA %49А2 
403A- 29 OF AND $$0F 
403C- со 02 CMP #302 
403E- 30 СА ВМТ $4004 


4040- AD BO 49 LDA $49BO 
4043- AE В1 49 LDX $4981 
4046- AC B2 49 LDY $49B2 


4049- 28 PLP 

404А- 60 RTS 

404B- 00 BRK 

404C- 00 BRK 

404D- 00 BRK 

404E- 00 BRK 

404F- 77 РР? 

4050- ФЕ т??? . . 
4051- FF ??? LISTING 6.4 Machine language routine 
4052- 80 ??? contained within the BASIC program. 


Once you have confirmed that the system is working correctly, 
insert your finger into the pulse detector and we will learn some 
things about your cardiovascular system. Remember that the de- 
tector is motion-sensitive, so you should assume a quiet sitting 
position with your arm and hand supported on some surface. The 
first thing you will notice is that your heart rate is a function of 
respiration. When you inhale your heart rate decreases. Also, if 
you hold your breath for several seconds, you should expect to see 
a decrease followed by an increase in heart rate. The graphical 
display on the CRT will be used as the feedback path to your 
central nervous system. You can alter your heart rate by practicing 
progressive relaxation exercises. The idea behind these exercises 
is to learn how to relax by sensing the difference between tension 
and relaxation. Start by assuming a comfortable position. Starting 
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FIGURE 6.8 Flow chart for the BASIC program. 


FIGURE 6.9 Graphical display of resting level heart rate. 
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with the feet, alternately tense and relax your muscles. Suppose 
you have tensed the muscles in your left leg. When you relax that 
group of muscles you should feel the leg become limp and heavy. 
As you progress through this type of relaxation process, your 
heart rate should decrease, indicating a state of relaxation. 

You may want to monitor your heart rate while watching 
your favorite television program. Sporting events or mystery 
shows are good candidates for causing your heart rate to signific- 
antly increase and decrease. Monitor your pulse rate while you 
drink a cup of coffee or as you smoke a cigarette. For the more 
daring individual, you might want to monitor your heart rate as 
you balance your checkbook at the end of the month. 


CONTROLLING А 
VIDEO PLAYBACK 
DEVICE 


The phrase “опе picture is worth a thousand words" illustrates 
the importance of visual representation of material in the learning 
process. Educators have effectively used snapshots, slides, film- 
strips, and motion pictures to aid students while avoiding some of 
the problems that might occur from direct contact with the subject 
being studied. While this media serves a purpose, its effectiveness 
is limited since the viewing speed and the content of the material 
is fixed, and there is no simple means of allowing individual 
students to interact with the viewing device. 

In an attempt to increase the personal interaction of teaching 
systems with the student, slide/audio cassette systems have been 
developed. These systems have been used successfully for many 
years as a low-cost supplement to textbook instruction at all 
educational levels. Using individual viewing screens and head- 
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phones, the student can view and review such things as sequen- 
tial anatomical dissections, while listening to a detailed descrip- 
tion of what they are seeing. 

Television has expanded on slide/audio tape systems by al- 
lowing the low-cost presentation of prepared lecture material and 
permitting live demonstrations of such things as surgical proce- 
dures to large audiences. The introduction of the videotape re- 
corder has increased the impact of television by allowing lecture 
and demonstration materials to be recorded and then played back 
any number of times. Recently, the less expensive videocassette 
player has made it possible for students to individually view and 
review prerecorded lecture material. The intimacy of videocas- 
sette presentations is surpassed only by the live classroom lecture 
where the important ingredient of student-teacher interaction is 
present. 

The availability of low-cost personal computing systems has 
provided another (and more sophisticated) tool for educators. 
Computer-assisted instruction (CAT) is a term used for a system in 
which the computer carries on a predetermined instructional 
strategy, and permits conversational interaction with the student. 
Computers are most recognized for their high-speed computa- 
tional ability. Because of this, computers can be used in real-time 
simulation of complex physical systems and, when interfaced 
with a graphic display, the computer can be very effective in 
assisting students in their understanding of these systems. 

While the use of the small personal computer in an educa- 
tional environment is not a new concept, the use of a personal 
computer to interactively control a videocassette player is. 
Videotaped material is abundant and readily available. Often the 
student will not need to review a complete lecture, but will only 
be concerned with a specific segment. In a case such as this, the 
computer can be used to provide a menu from which the student 
can choose the desired segment. The computer then is responsible 
for finding the starting point of the desired segment, initiating the 
PLAY command, and stopping the presentation when the end of 
the segment is reached. The interaction of the computer and the 
video device can also be used as a teaching machine where the 
computer is used to control the presentation of videotaped lec- 
tures. At appropriate times, the lecture could be interrupted and 
questions asked of the viewer. Depending on the response, the 
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viewer would be allowed to continue, would be supplied with 
remedial material, or would just be returned to the start of the 
most recently viewed segment. This provision of immediate feed- 
back is an important part of the system concept and is a particu- 
larly strong feature of computer-assisted instruction. Theoreti- 
cally, this system should have the following advantages over 
conventional methods of instruction such as a group lecture: 


1. Students can proceed through material at a rate which is consistent 
with their ability. 

2. Correct responses to questions allow additional material to be 
presented. Incorrect responses cause material to be repeated, or 
supplementary material to be presented. 

3. Material presentation can be organized so that special guidance 
can be given to correct deficiencies in individual educational 
backgrounds. 

4. Teaching material can be organized for an optimal sequence of 
presentation. 

5. The student is forced to play an active part in the learning process. 


The design of the Sony Betamax SLO-320 videocassette recorder 
makes interfacing the Apple II computer to it a relatively easy 
task. Table 7.1 shows the control, status, and timing lines that are 
available from the interface connector on the back of the Betamax. 
During the recording process, a timing signal is recorded onto the 
videotape. This timing signal, available on pin 15 of the Auto 
Search control unit interface connector, can be sampled by the 
computer and used to index the tape to any relative location. 
There are two status signals that are available at the interface 
connector: one signal (CASSETTE IN*) indicates when the video- 


TABLE 7.1 Betamax status and contro! signals available through the pins that connect 
the recorder to the RM-300 Auto Search control unit. 


Connector Pin S Destination 


CN1-20 BEGINNING OF TAPE* Status signal from Betamax 
| REMINDS | 
[STOP - | 


i 
01-7 | CASSETTE ІМ | Status signal from Betamax 
REW Comand signal to Betamax 


Command signal to Betamax 


- 
CN1-1 FAST FORWARD Command signal to Betamax 


gnal 
IND 
QN1-15 Timing signal from Betamax 
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BETAMAX 
CONTROL CONNECTOR 


cassette has been inserted into the player and the other signal 
(BEGINNING OF ТАРЕ*) indicates when the videocassette tape 
has been fully rewound. These signals were not used in the system 
that is being described, but certainly could be used if a modifica- 
tion of the system concept makes it desirable. Four control lines 
(STOP*, PLAY*, FAST FORWARD’, and REWIND*) are also 
available at the interface connector, and are used to indicate to the 
Betamax the desired mode of operation. 

Figure 7.1 shows the Betamax to Apple II interface in sche- 
matic form. The left side of the schematic shows connections 


FIGURE 7.1 Betamax/Apple Il interface schematic. 
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made to the Betamax through the RM-300 Auto Search control 
unit connector, while the right side of the schematic shows the 
connections made to the Apple II through the ГО bus connector. 
Line 15 (COUNT*) from the Betamax carries the timing signal 
formatted onto the videotape. This signal is divided by a factor of 
sixty by the combined action of integrated circuits IC1 (SN7490) 
and IC2 (SN7492). IC3 (MC14512) is an eight-channel data selector 
which is used to connect the divided timing signal to the Apple II 
data line seven (D7). Increased channel sampling capability was 
incorporated so that the two status lines from the Betamax, or 
other user-defined status lines, could be sampled if so desired. 
Data line D7 was chosen because its state is easily tested by 
rotating its contents into the carry bit. Integrated circuit IC7 
(MC14514) is a 4-16 line decoderlatch which is used to selectively 
turn on one of the four transistors, thus causing the Betamax to 
enter either the PLAY, the REWIND, the FAST FORWARD, or the 
STOP mode. Table 7.2 shows the function that will be accessed for 
a given BASIC statement or a given machine language command. 
Provision was made for storing the computer program on a begin- 
ning segment of the videotape. To record the program on the - 
videotape you should amplify the output of the computer going to 
the cassette recorder during a SAVE operation by a factor of ten. 
Figure 7.2 shows a simple circuit for doing this (refer to Appendix 
B for a description of the circuit). In order for the audio to be 
recorded, you will have to provide both the audio signal and a 
video signal. IC12 (МС14528) is a dual monostable multivibrator 
configured so that it switches the Betamax into the PLAY mode 


TABLE 7.2 Software commands, in both BASIC and 6502 machine lan- 
guage, necessary to activate the Betamax control lines. 


Control BASIC Machine Language 
Signal Command Command 
POKE-16142,3 LDA #03 
STA $COF2 
STOP* POKE-16142,0 LDA #00 
STA $COF2 
PLAY* POKE-16142,1 LDA #01 
STA $COF2 
FAST FORWARD* POKE-16142 ,2 LDA #02 
STA $COF2 
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FIGURE 7.2 Operational amplifier circuit for recording Apple Il cassette output into the video 


tape. 


when LOAD is entered from the Apple II keyboard, and switches it 


into the STOP mode when the program has been loaded. IC11 
(CA3140T) buffers the audio output from the Betamax to the 


Apple II cassette audio input during the program load operation. 


Once you have completed construction of the interface, you 


should perform the following tests to make sure that it is working 
correctly: 


1. For each of the Betamax control functions listed in Table 7.2, 


execute the two BASIC commands associated with the control 
function. The Betamax should respond in an appropriate manner. 


. Load the Apple II with the test program that is shown in Listing 7.1. 


Using a prerecorded video tape placed in the cassette player, exe- 
cute the program. The program should exercise the following 
player functions: 

FAST FORWARD 

PLAY 

STOP 

REWIND 

STOP 


3. Ifeverything functions correctly upto this point, try storing the test 


program on the beginning segment of a blank videocassette. Re- 
member to connect the audio cables from the Apple II to the Beta- 
max and back again. Remember also to provide some type of video 


LISTING 7.1 Betamax/Apple II test program. 
10 REM TEST PROGRAM FOR THE BETAMAX/APPLE II INTERFACE 


50 REM START 


51 GOSUB 12000: REM LOAD MACHINE LANGUAGE ROUTINE 


52 РОКЕ 771,0: POKE 772,0 
93 POKE - 16142,14; HOME 


70 X 
72 I 
74 P 
76 G 
80 P 


1020 

10000 
10002 
10010 
10020 
10021 
10022 
10023 
10024 
10030 
10032 
10035 
10050 
10051 
10052 
10053 
10054 
10080 
10082 
10085 
10090 
10092 
10094 
10100 
10110 
10112 
10114 
10116 
10200 
10202 
10210 
10211 
10212 
10213 
10214 
10220 
10230 
10240 
10250 
10252 
10254 
10256 
10300 
10310 
10320 
10400 
10410 
10412 


= PEEK ( ~ 16137) 

F X < 127 THEN GOTO 80 
ОКЕ - 16142»3 

ОТО 70 

ОКЕ - 16142,14 


КЕМ EXERCISE ВЕТАМАХ CONTROL FUNCTIONS 


SR = 100:8P = 150 
HOME 
GOTO 10000 
FOR I = 1 TO 2000: NEXT I 
SR = 100:SP = 100 
REM CONTROLLER ROUTINE 
Кі = 0:52 = 0Р1 = 0Р2 = O 


X = PEEK (771) + 256 * PEEK (772) 


R1 = SR 
R1 - R1 - 256 
IF Кі = O THEN GOTO 10030 
IF Ri > 0 THEN GOTO 10032 
IF Ri < 0 THEN GOTO 10035 


R2 = R2 + 1: GOTO 10090 
R2 = R2 + 1: GOTO 10021 
R1 = К! + 256 

P1 = SF 

P1 = P1 - 256 


IF РІ = O THEN GOTO 10080 
IF P1 > O THEN GOTO 10082 
IF Pi < O THEN GOTO 10085 


P2 = P2 + 1: GOTO 10090 
P2 = P2 + 1: GOTO 10051 
P1 - P1 t 256 


IF X « SR THEN GOTO 10100 
IF X > SR THEN GOTO 10200 
IF X = SR THEN GOTO 10300 
REM FAST FORWARD 

POKE 773»К1: POKE 774,К2 
POKE - 16142,2: CALL 784 
POKE  — 1614250 

GOTO 10300 

REM REWIND 
R3 O3R4 = 0 
R3 SR + 2 
R3 КЗ - 256 

ТЕ КЗ = 0 THEN GOTO 10220 
ТЕ R3 > O THEN GOTO 10230 
IF КЗ < 0 THEN GOTO 10240 


ини 


R4 = R4 +1: GOTO 10250 
R4 = R4 + 13 GOTO 10211 
КЗ = R3 + 256 


POKE 773,83: POKE 774,К4 
POKE - 16142»3: CALL 864 
POKE - 16142,0 

POKE 771,К1: POKE 772»К2 
REM PLAY 

POKE 773,Р1: POKE 774»Р2 
РОКЕ - 16142,1: CALL 784 
REM STOP 

РОКЕ - 16142,0 

РОКЕ - 16142,14 
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LISTING 7.1 (Continued) 


10420 RETURN 

11000 REM GRAPHIC INTRODUCTION 

11012 HOME : GR : COLOR- 2 

11020 VLIN 0,11 АТ O; VLIN 0,11 АТ 12: PLOT 1,0: PLOT 2,2; PLOT 35,4: PLOT 


4»6* PLOT 5,8: PLOT 6,10: PLOT 7,8: PLOT 8»6: PLOT 9,4: PLOT 10,2: PLOT 


11:0? PLOT 6»11: REM М 


11025 VLIN 0911 AT Ot VLIN 0,5 АТ 15: НІМ 15,25 АТ 5: ULIN 6,11 АТ 25% HLIN 


25,15 АТ 11: HLIN 15,25 АТ 0: REM S 

11030 VLIN 0911 AT 29% ULIN 0911 АТ 39: HLIN 29,39 АТ 11! КЕМ U 

11035 VLIN 28,39 АТ 0: HLIN 1,10 АТ 28: HLIN 0,10 AT 39% REM С 

11040 HLIN 13,23 АТ 28: HLIN 13,23 AT 39: ULIN 28,39 АТ 13% VLIN 28,39 АТ 
233 REM 0 

11045 VLIN 28,39 АТ 27: ЧЕМ 28,39 АТ 39: PLOT 28,28: PLOT 29,30: PLOT 3 
02323 PLOT 31,34! PLOT 32,36: PLOT 33,38: PLOT 33,39: PLOT 34,36: PLOT 
352343 PLOT 36,32: PLOT 37,50: PLOT 38,28: REM М 

11090 GET A$ 

11099 RETURN 

12000 REM MACHINE LANGUAGE ROUTINE 

12010 POKE 768,234: POKE 769,234: POKE 770,234: POKE 771,234: POKE 772,2 
34: POKE 773,234: POKE 774,234: POKE 775,234: POKE 774692343 POKE 777 
02343 POKE 778,234: POKE 779,234 

12012 POKE 780,234: POKE 781,234: POKE 782,234; FOKE 7837234 

12020 POKE 784,008: POKE 785,072: POKE 786,173: POKE 787,243: POKE 788,1 
92% РОКЕ 789,042: РОКЕ 790,176: РОКЕ 791,250 

12025 POKE 792,173! POKE 793,243: POKE 794,192 FOKE 79520422 FOKE 796,1 
441 POKE 797,250! POKE 798,238: POKE 799,003 

12030 РОКЕ 800,003: РОКЕ 801,208: РОКЕ 802,003: POKE 803,238: РОКЕ 804,0 
04: POKE 805,003: POKE 806,173: POKE 807,003 

12035 POKE 808,003: POKE 809,205: POKE 810,005: POKE 811,003: POKE 812,2 
08: POKE 813,228: РОКЕ 814,173: РОКЕ 815,004 

12040 РОКЕ 816,003: РОКЕ 817,205: РОКЕ 818,006: РОКЕ 819,003: РОКЕ 820,2 
08: РОКЕ 821,220: РОКЕ 822,104: РОКЕ 823,040: РОКЕ 824,096 

12045 РОКЕ 864,008: РОКЕ 865,072: РОКЕ 866,173: РОКЕ 867,243: РОКЕ 868,1 
921 POKE 869,042: POKE 870,176: POKE 871,250 

12050 РОКЕ 872,173: РОКЕ 873,245: РОКЕ 874,192: POKE 875,042: РОКЕ 876,1 
44: POKE 877,250: РОКЕ 878,056: РОКЕ 879,173 

12055 POKE 880,003: POKE 881,003: POKE 882,233: POKE 883,001: FOKE 884,1 
41: POKE 885,003: РОКЕ 886,003: РОКЕ 887,173 

12060 POKE 888,004: POKE 889,003: FOKE 890,233: POKE 891,000: POKE 892,1 
41: POKE 893,004: POKE 894,003: POKE 895,173 

12065 РОКЕ 896,003: РОКЕ 897,003: РОКЕ 898,205: РОКЕ 899,005: POKE 900,0 
O3: POKE 901,208! POKE 902,219: FOKE 903,173 

12070 POKE 904,004: POKE 905,003: POKE 906,205: POKE 907,006: FOKE 908,0 
O3: РОКЕ 909,208: РОКЕ 910,211: POKE 911,104 

12075 POKE 912,040: POKE 913,096 

12999 RETURN 


signal to the Betamax during the recording process. If you now 
rewind the tape and enter LOAD, you should see the Betamax begin 


to play, and the computer should sound a tone, indicating that a 
normal load is taking place. 


The software portion of the controller was written in two parts: 


1. Two machine language routines were written to count the pulses 
coming from the timing track stored on the videotape, and to 
determine when the desired destination on the videotape had been 
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reached. One routine is used when the tape is moving forward and 
the other routine is used when the tape is moving backward. 

2. A routine was written in Applesoft BASIC to load the desired tape 
destination, and to control the operational mode of the cassette 
player. 


Figure 7.3 shows a flow chart of the machine language routine 
which is used when the tape is moving forward, and Listing 7.2 
shows the actual program with comments. Figure 7.4 shows a 
flow chart of the machine language routine which is used when 


FIGURE 7.3 Flow chart of the machine language routine for incrementing and compar- 
ing the videotape location count. 
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8 bits of 
count 


LISTING 7.2 Machine language program for incrementing and compar- 
ing the videotape location count. 


310 08 PHP Save processor status 
311 48 PHA Save Accumulator 

312 ADF 3c0 LDA SCOF3 Save processor status 
315 2А ROL Rotate bit 7 into carry 
316 ВОРА BCS 5312 Branch if carry set 

318 . ADF3CO LDA S$COF3 Sample count line 

318 2А ROL Rotate bit 7 into carry 
31c 90FA ВСС 5318 Branch if carry clear 
31Е  EE0303 ІМС $303 Increment least sig bit 
321 p003 BNE $326 Branch if no overflow 


323 EE0403 INC $304 Increment most sig 8 bits 
326 Ар0303 LDA 5303 Load least sig 8 bits 

329  cp0503 СМР 5305 Compare with stop count 
322 DOE4 BNE $312 Branch if not equal 

32E . AD0403 LDA $304 Load most sig 8 bits 

331 С00603 СМР 5306 Compare with stop count 


334 рорс BNE $312 Branch if not equal 

336 68 PLA Restore accumulator 

337 28 PLP Restore processor status 
338 60 RTS Return form subroutine 


FIGURE 7.4 Flow chart of the machine language routine for decrementing and compar- 
ing the videotape location count. 
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the tape is moving backward, and Listing 7.3 shows the actual 
program with comments. Upon entering either routine, the proc- 
essor status and the accumulator are pushed onto the stack. The 
line containing the pulses from the timing track on the video tape 
is then sampled until it has been determined that the tape has 
moved a distance equal to one pulse width. A register containing 
two 8-bit words is then either incremented or decremented de- 
pending on whether thetape is being moved forward or in reverse. 
The contents of this register is then compared to the contents of a 
register containing the two 8-bit words representing the destina- 
tion. If the two registers are equal, the tape has reached its destina- 
tion and the computer returns to the BASIC routine. If the two 
registers are not equal, the program goes back to wait for the next 
timing pulse. 

Figure 7.5 shows a flow chart of a BASIC routine which has 
been used for demonstration purposes, and Listing 7.4 shows the 
actual program with comments. There is an initial decision point 
at line 232 where a student decides whether he or she needs to 
watch the whole program or just selected parts. After viewing a 
segment of instructional material, the student is asked a series of 


LISTING 7.3 Machine language program for decrementing and compar- 
ing the videotape location count. 


Hex Code Mnemonic Comments 

Adr 

360 08 PHP Save processor status 
361 48 PHA Save accumulator 

362  ADF3CO0 LDA  $COF3 Sample count line 

365 2А ROL Rotate bit 7 into carry 
366 BOFA BCS $362 Branch if carry set 

368 | ADF3CO LDA  $COF3 Sample count line 

36B 2A ROL Rotate bit 7 into carry 
36C 90FA BCC $368 Branch if carry clear 
36E 38 SEC Set carry 

36F AD0303 LDA $303 Load least sig 8 bits 
372 E901 SBC #$01 Decrement least sig 8 bits 


374 8D0303 STA $303 Save 

377 AD0403 LDA $304 Load most sig 8 bits 
37A £900 SBC #$00 Decrement if borrow 

37С 800403 STA $304 Save 

37F Ар0303 LDA $303 Load least sig 8 bits 
382  cp0503 СМР 5305 Compare with stop count 
385 DODB BNE $362 Branch if not equal 

387 . AD0403 LDA $304 Load most sig 8 bits 
38A  CD0603 CMP $306 Compare with stop count 


38D рорз BNE $362 Branch if not equal 
38F 68 PLA Restore accumulator 
390 28 PLP Restore processor status 


391 60 RTS Return from subroutine 
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destination? 


FIGURE 7.5 Flow chart for a demonstration program written in BASIC. 


questions designed to test retention and comprehension of the 
material which has been viewed. If retention and/or comprehen- 
sion is below a specified level, the videotape is rewound to the 
segment start point and the material is re-presented to the student. 
Once comprehension and retention are demonstrated, the student 
is allowed to continue on to new material. 


LISTING 7.4 Betamax/Apple ІІ demonstration routine: Hypercalcemia. 


50 
51 
52 
53 
54 X 
56 
58 
60 
62 
70 X 
72 
74 
76 
80 
100 
102 
106 
200 
201 
204 
205 
206 
208 
210 
212 
214 
216 
218 
220 
222 
223 
224 
230 
232 
234 
236 
238 
240 
242 
244 
246 
248 
250 
252 
256 
258 
260 
261 
262 
264 
265 
266 


867 

1000 
1002 
1010 
1012 
1014 
1020 
1022 
1024 
1030 


1032 


REM START 

GOSUB 12000: REM LOAD MACHINE LANGUAGE ROUTINE 
РОКЕ 771,0: РОКЕ 772,0 

POKE ~ 16142,14: HOME 


= PEEK ( - 16133) 
IF X < 127 THEN бОТО 70 
UTAB 10 
PRINT *!!!!!!!!1!3] ПАВ TAPEI!1!!11)11111* 
GOTO 54 


= PEEK ( - 16137) 

IF X < 127 THEN GOTO 80 

POKE - 16142,3 

GOTO 70 

РОКЕ - 16142»14 

КЕМ PROGRAM START 

TEXT : HOME 

GOSUB 11000: REM GRAPHIC INTRODUCTION 
REM WHOLE PROGRAM OR PARTS? 

TEXT : HOME % VTAB 8 

PRINT °"ЖЖЖЖЖЖЖКЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ" 


PRINT "Ж ж" 
PRINT “Ж THE FOLLOWING IS A DEMONSTRATION Ж" 
PRINT "ж ж" 
PRINT "Ж OF THE USE ОҒ А VIDEO ТАРЕ ж" 
PRINT "Ж ж“ 
PRINT “Ж RECORDER IN INTERACTIVE COMPUTER Ж" 
PRINT "Ж ж" 
PRINT "Ж INSTRUCTION. x" 
PRINT *x x" 


PRINT *ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 
CALL - 198 


УТАВ 24: PRINT "PRESS ANY KEY TO CONTINUE," t GET A$ 


HOME ? UTAB 6 

PRINT "ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 
PRINT “Ж ж” 
PRINT “Ж YOU HAVE THE CHOICE OF LOOKING ж” 


PRINT “Ж ж" 
PRINT "Ж AT THE WHOLE VIDEO TAPE OR AT ж" 
PRINT *x x* 
PRINT "Ж SELECTED PARTS. ж" 
PRINT "X ж 
PRINT “Ж WOULD YOU LIKE TO VIEW THE WHOLE x° 
PRINT "Ж ж“ 
PRINT “Ж ТАРЕ? Ж" 
PRINT "Ж ж" 


PRINT *ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 


УТАВ 24: PRINT "PRESS Y FOR YES OR М FOR NO.*: CALL 


IF AS = "k" THEN GOTO 50 

IF A$ = "Y" THEN GOTO 1000 
IF A$ = "N" THEN GOSUB 2000 
GOTO 230 


VTAB 24: PRINT “PRESS Y РОК YES OR М FOR NO!*: CALL 


262 
932 POKE 868»233: POKE 869,1 
REM WHOLE TAPE PRESENTATION 
HOME 
SR = 05Р = 85 
GOSUB 10000 
GOSUR 2200 
SR = 92%5Р = 114 
GOSUBR 10000 
GOSUB 3100 
SR = 12235Р = 172 
GOSUB 10000 


- 1983 


- 198: 


GET A$ 


GET A$? 


GOTO 
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LISTING 7.4 (Continued) 


1034 GOSUB_ 4100 
1040 SR = 1791SP = 236 


1042 60508 10000 

1044 GOSUB 5100 

1050 SR = 2411SP = 308 
1052 GOSUB 10000 

1054 GOSUB 6100 

1060 SR = 314%5Р = 440 
1062 GOSUB 10000 

1064 GOSUB 7100 

1070 SR = 446:5Р = 822 
1072 GOSUB 10000 

1074 GOSUB 8100 

1080 SR = 829:5Р = 1100 
1082 GOSUB 10000 

1084 GOSUB 9100 

1070 GOTO 230 


1999 END 

2000 REM SELECTED TAPE PRESENTATION 

2002 HOME 

2010 PRINT *ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖАЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 
2012 PRINT “Ж ж" 
2014 PRINT "Ж CHOSE FROM THE FOLLOWING TOPICS ж” 
2020 PRINT ‘x x* 
2022 PRINT "Ж 1. CALCIUM REGULATION ж" 
2024 PRINT "x ж" 
2026 PRINT “Ж 2. HYPERCALCEMIA SYMPTOMS ж" 
2028 PRINT "£ x" 
2030 PRINT "Ж 3. CAUSES FOR HYPERCALCEMIA x* 
2032 PRINT "x x* 
2034 PRINT "Ж 4. TESTING FOR HYPERCALCENIA x* 
2036 PRINT "ж ж“ 
2038 PRINT *'* 5, RANGE ОҒ NORMAL CALCIUM LEVELSx* 
2040 PRINT °x x* 
2042 PRINT °* 6. CORRECTION FACTORS ж" 
2046 PRINT *'x ж" 
2048 PRINT ** 7. CASE HISTORY---MILD CASE ж“ 
2049 PRINT “Ж x* 
2050 PRINT “Ж 8. CASE HISTORY---SEUVERE CASE ж” 
2051 PRINT "Ж ж" 


2052 PRINT *ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖАЖЖЖЖЖЖЖЖЖЖЖ © 
2054 VTAB 22: CALL - 198 


2056 PRINT 'PRESS THE KEY CORRESPONDING TO YOUR CHOICE.*": GET A$ 

2060 HOME 

2070 IF A$ = "1" THEN GOSUB 2100: GOTO 2000 

2072 ТЕ 6% = "2" THEN GOSUB 3000: GOTO 2000 

2074 IF 6$ = '3* THEN GOSUB 4000: GOTO 2000 

2076 ТЕ A$ = "4" THEN GOSUB 5000: GOTO 2000 

2078 ТЕ A$ = "5° THEN GOSUB 6000: GOTO 2000 

2080 IF 4% = "6" THEN GOSUB 7000: GOTO 2000 

2082 IF A$ = *7* THEN GOSUB 8000: GOTO 2000 

2084 IF A$ = *8* THEN GOSUB 7000: GOTO 2000 

2085 IF A$ = °x" THEN GOTO 50 

2086 CALL - 198: VTAB 22 

2088 PRINT 'PRESS THE KEY CORRESPONDING TO YOUR CHOICE.": GET АФ; GOTO 
2070 


2100 SR = 0;5Р = 85 

2110 SR = O:SP = 85 

2112 GOSUB 10000 

2200 REM FIRST QUESTION 

2201 К = 03 HOME 

2202 PRINT *ЖЖЖЖЖЖЖЖЖЖЖЖХЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 
2204 PRINT “Ж ж" 
2206 PRINT “Ж HYPERCALCEMIA IS BEING DIAGNOSED Ж" 
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2208 
2210 
2212 
2214 
2216 
2218 
2220 
2222 
2224 
2226 
2228 
2230 
2232 
2234 
2236 
2237 
2238 
2240 
2242 
2244 
2246 
2250 
2254 
2255 
2300 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2310 
2311 
2312 
2313 
2314 
2316 
2317 
2530 
2331 
2332 
2334 
2335 
2336 
2337 
2338 
2340 
2341 
2342 
2346 
2350 
2391 
2352 
2353 
2354 
2355 
2382 
2384 
2385 
2386 
2387 
2388 
2389 
2390 


PRINT "Ж ж" 
PRINT “Ж MORE BECAUSE OF: ж" 
PRINT °x ж" 
PRINT °* 1. THE INCREASE IN STRESS IN OUR ж" 
PRINT “Ж DAILY LIVES ж" 
PRINT °x ж" 
PRINT *Ж 2. THE ABILITY OF CLINICAL ж" 
PRINT "Ж LABORATORIES TO ROUTINELY ТЕ5ТЖ" 
PRINT "Ж CALCIUM LEVELS x" 
PRINT "x x" 
PRINT "k 3. THE INCREASE IN SUGAR IN OUR ж" 
PRINT “Ж DIET ж“ 
PRINT “Ж ж" 


PRINT "ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ" 
УТАВ 20: CALL - 198 

POKE - 16368»0 

PRINT "PRESS THE KEY CORRESPONDING TO YOUR 
ТЕ ñ$ = *2" THEN GOTO 2250 

IF AS = "Ж" THEN GOTO 50 

PRINT "INCORRECT" 

GOTO 2255 

PRINT "CORRECT" 
R=R +1 

FOR I = 0 TO 1000? NEXT I 

REM SECOND QUESTION 


HOME 

PRINT *ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖАЖЖЖЖЖЖЖ" 
PRINT "Ж x* 
PRINT °* WHAT THREE HORMONES ARE PRIMARILY x* 
PRINT °x ж" 
PRINT “Ж RESPONSIBLE FOR CONTROLLING THE ж" 
PRINT °x ж" 
PRINT “Ж MOVEMENT ОҒ CALCIUM BETWEEN THE ж" 
РКІМТ "Ж ж" 
PRINT "ж EXTRACELLAR FLUID AND BONEsKIDNEY Ж” 
PRINT “Ж ж" 
PRINT “Ж AND GASTROINTESTINAL TRACT? ж“ 
PRINT "x ж" 


PRINT *ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖАЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 
VTAB 17 

РОКЕ - 16368,0 

CALL - 198: INPUT "1.°#A1$ 
GOSUB 2900 

УТАВ 19: FOKE ~ 16368,0 
CALL - 198: INPUT %2.%%42% 
GOSUB 2920 

УТАВ 21: РОКЕ - 16368,0 
CALL - 198: INPUT "3.°;А3% 
GOSUB 2930 

FOR I = 0 TO 1000: NEXT I 
IF R € 2 THEN GOTO 2382 


HOME 
PRINT ‘YOU HAVE SCORED WELL ENOUGH ТО" 
CALL - 922 


PRINT "PROCEED ON TO NEW MATERIAL. " 

FOR I = O TO 1000: NEXT I 

RETURN 

HOME 

PRINT "YOU HAVE NOT SCORED WELL ENOUGH” 
CALL - 922 

PRINT "TO CONTINUE ON TO NEW MATERIAL!” 
CALL - 922 

PRINT "PAY CLOSE ATTENTION TO THE LECTURE" 
CALL - 922 

PRINT 'MATERIAL!" 


СНОІСЕ.": GET A$ 
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132. 


LISTING 7.4 (Continued) 


2392 
2393 
2394 
2900 


2905 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2920 
2921 
2922 
2923 
2924 
2928 
2926 
2927 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2950 
2952 
2954 
2960 
2962 
2963 
2964 
2999 
3000 
3010 
3012 
3100 
3102 
3104 
3105 
3106 
3108 
3110 
3112 
3114 
3116 
3118 
3120 
3122 
3123 
3124 
3130 
3132 
3134 
3140 
3142 
3150 
3152 
3154 
3200 
3202 


FOR I = 0 TO 1000 


NEXT I 

GOTO 2100 

Big = *D':B2$ = "VITAMIN D"+B3$ = "PTH*$B4$ = 
ARATHYROID HORMONE *?B6$ = "CALCITONIN" 

IF 41% = "Ж" THEN GOTO 50 

IF 61$ = B1$ THEN GOTO 2960 

IF 61$ = B2$ THEN GOTO 2960 

IF A1% = В3% THEN GOTO 2960 

ТЕ 41$ = B4$ THEN GOTO 2960 

IF 41% = BS$ THEN GOTO 2960 

IF 61$ = Bó$ THEN GOTO 2960 

GOTO 2950 

IF 42$ = Bi1$ THEN GOTO 2960 

IF 42$ = B2$ THEN GOTO 2960 

IF 42$ = B3$ THEN GOTO 2960 

IF 42$ = B4$ THEN GOTO 2960 

IF A2$ = B5$ THEN GOTO 2960 

IF 42$ = Bé$ THEN GOTO 2960 

IF 42$ = “Ж" THEN GOTO 50 

GOTO 2950 

IF А3% = B1$ THEN GOTO 2960 

IF 43% = B2$ THEN GOTO 2960 

IF 63$ = B3$ THEN GOTO 2960 

IF 43$ = B4$ THEN GOTO 2960 

IF 43% = B5$ THEN GOTO 2960 

IF 43$ = В6% THEN GOTO 2960 

IF 63$ = "x" THEN GOTO 50 
СУ = PEEK (37): UTAB СУ 

НТАВ 20: PRINT “ІМСОККЕСТ" 

RETURN 
СУ = PEEK (37): VTAB СУ 

НТАВ 20: PRINT *CORRECT* 
R=R +1 

RETURN 

RETURN 

REM HYPERCALCEMIA SYMPTOMS 
ӨК = 92$5Р = 114 

GOSUB 10000 

REM FIRST QUESTION 
R = 0: HOME 

УТАВ 8 

PRINT *"ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 
PRINT “Ж x* 
PRINT "Ж PATIENTS HAVING MILD x" 
PRINT "Ж ж“ 
PRINT "Ж HYPERCALCEMIA САМ BE DESCRIBED ж“ 
РКІМТ "Ж ж" 


PRINT “Ж AS ВЕТМб":СУ = РЕЕК (37) 

VTAB СУ: НТАВ 37: PRINT "ж" 

PRINT °x ж” 
PRINT "ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 
POKE - 16368,0 

УТАВ СУ: НТАВ 123 INPUT AS 

УТАВ CU: НТАВ 37: PRINT "xk" 

IF AS = 'ASYMPTOMATIC' THEN GOTO 3150 

IF AS = "Ж“ THEN GOTO 50 

VTAB 22: PRINT “ІМСОККЕСТ” 

GOTO 3154 

УТАВ 22: PRINT "CORRECT" 


FOR I = 0 TO 1000: NEXT I 
REM SECOND QUESTION 
HOME 


"FARATHYROID® $ В5$ 


"P 


3210 
3212 
3214 
3216 
3218 
3219 
3220 
3222 
3224 
3226 
3228 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3240 
3242 
3243 
3244 
3245 
3246 
3252 
3254 
3256 
3258 
3260 
3262 
3264 
3266 
3268 
3270 
3300 
3310 
3312 
3313 
3314 
3320 
3322 
3324 
3350 
3352 
3354 
3360 
3362 
3364 
3366 
4600 
4010 
4012 
4100 
4102 
4108 
4110 
4112 
4114 
4116 
4118 
4120 
4122 
4124 
4126 
4128 


PRINT *"ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 
PRINT °x x" 
PRINT "Ж LIST TWO SYMPTOMS OF HYPER- ж” 
PRINT “Ж x" 
PRINT "Ж CALCEMIA WHICH ARE ASSOCIATED x" 
PRINT "Ж ж" 
PRINT *ж WITH DEHYDRATION AND IMPAIRED ж" 
PRINT “Ж x" 
PRINT "Ж RENAL FUNCTION. ж“ 
PRINT "Ж ж“ 
PRINT *ЖЖЖЖЖЖЖЖЖЖЖЖЖЖ ЖЖ ЖЖ ЖЖЖ ЖЖЖ ХХ ЖЖЖ, 
УТАВ 17 

РОКЕ - 16368,0 

CALL - 198: INPUT *1."}А1$ 

GOSUB 3300 

POKE - 15368,0: CALL - 198% INPUT *2.";42$ 
GOSUB 3320 

FOR I = O TO 1000: NEXT I 

IF К < 2 THEN GOTO 3252 

HOME 

PRINT "YOU HAVE SCORED WELL ENOUGH ТО" 

CALL - 922 

PRINT "CONTINUE ON TO NEW MATERIAL." 

FOR I = 0 TO 1000: NEXT I 

RETURN 

HOME 

PRINT *YOU HAVE NOT SCORED WELL ENOUGH" 

CALL - 922 

PRINT "TO CONTINUE ON TO NEW MATERIAL!" 

CALL - 922 

PRINT “PAY CLOSE ATTENTION TO THE LECTURE" 
CALL - 922 

PRINT 'MATERIAL!* 

FOR I = O TO 1000: NEXT I 

GOTO 3000 
Bi$ = "УОМІТІМб":В2% = *POLYURIA" 

IF 61% = Bi$ THEN GOTO 3360 

IF 41% = B2$ THEN GOTO 3360 

ТЕ А1% = "k" THEN GOTO SO 

GOTO 3350 

IF A2$ = В1% THEN GOTO 3360 

IF A2$ = В2$ THEN GOTO 3360 

ТЕ 42% = “Ж" THEN GOTO 50 
СУ = PEEK (37): UTAB CU 

HTAB 20: PRINT "INCORRECT" 

RETURN 
СУ = PEEK (37): VTAB СУ 

HTAB 20: PRINT "CORRECT" 
R=R+1 

RETURN 

REM CAUSES FOR HYPERCALCEMIA 
SR = 122:SP = 172 

GOSUB 10000 

REM FIRST QUESTION 
R - 0: HOME 

VTAB 6 

PRINT *ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ ЖЖ k " 
PRINT "Ж x* 
PRINT “Ж THE MOST IMPORTANT PATHOGENETIC Жж" 
PRINT "Ж ж” 
PRINT “Ж MECHANISM ОҒ HYPERCALCEMIA IS: x" 
PRINT "£ x* 
PRINT “Ж ж" 
PRINT “Ж 1. INCREASED BONE ABSORPTION x* 
PRINT "Ж x* 
PRINT “Ж 2. INCREASED BONE RESORPTION ж" 
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4130 
4132 
4134 
4136 
4138 


4140 
4142 


4143 
4144 
4145 
4146 
4148 
4150 
4152 
4155 
4200 
4202 
4208 
4210 
4212 
4214 
4216 
4218 
4220 
4222 
4224 
4226 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4236 
4280 


4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4295 
4296 
4297 
4298 
4300 
4302 
4308 
4310 
4312 
4314 
4316 
4318 


- 4320 


4322 
4324 


PRINT 
PRINT 
PRINT 
PRINT 


"ж ж" 
"k 2. DECREASED BONE ABSORPTION ж” 
"X ж" 
*ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ " 


УТАВ 22 


CALL 
PRINT 
POKE 
IF AS 
IF AS 
PRINT 
GoTo 
PRINT 
R= 
FOR I 
REM 
HOME 
VTAB 


- 198 
"PRESS THE KEY CORRESPONDING TO YOUR 
1636870 
"2" THEN GOTO 4150 

= "Ж" THEN GOTO 50 

"INCORRECT 
4155 

*CORRECT* 


R +i 


= 0 TO 1000: NEXT I 
SECOND QUESTION 


6 


PRINT "ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ" 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


VTAB 
POKE 
CALL 
GOSURB 
POKE 
GOSURB 
FOR I 
GOTO 
B1$ - 
ING HO 
IF Al 
IF ^1 
IF А1 
IF Al 
GOTO 
IF А2 
IF A2 
IF A2 
IF A2 
СУ = 
PRINT 
RETUR 
СУ = 
PRINT 
R=R 
RETUR 
REM 
HOME 
УТАВ 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


.х ж” 
"Ж INCREASED BONE RESORPTION RESULTS ж" 
s% Т 
“Ж FROM THREE CAUSES, LIST TUO ж" 
* x ж" 
"ж OF THEM. x* 
"* ж" 
"ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ ” 

17 
- 16368,0 
- 198 INPUT "1, "341% 

4280: VTAB 19 

- 16368,0: CALL - 198: INPUT “2.%%42% 
4285 

= 0 TO 1000: NEXT I 

4300 


CHOICE.*: GET A$ 


*"HYFERTHYROIDISM':B2$ = 'METASTATIC CANCER*:B3$ = 


КМОМЕ * 

$ В1% THEN GOTO 4295 
$ B2$ THEN GOTO 4295 
$ B3$ THEN GOTO 4295 
$ "ж" THEN GOTO 50 
4290 

$ 


ü H H H 


Bis THEN GOTO 4295 

$ B2$ THEN GOTO 4295 

$ B3$ THEN GOTO 4295 

$ = "ж" THEN GOTO 50 

PEEK (37)! UTAB CU: НТАВ 30 
* INCORRECT * 

N 

PEEK (37): УТАВ СУ: HTAB 30 
“CORRECT” 

+ 1 

N 

THIRD QUESTION 


on it 


6 
"ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 
"ж ж“ 
“Ж INCREASED GASTROINTESTINAL x* 
“ж 


"Ж ABSORPTION ОҒ CALCIUM IS DUE ТО; x° 
“Ж 


“Ж ж" 
"ж 1. VITAMIN D INTOXICATION ж" 


*BONE-RESORB 


4326 
4328 
4330 
4332 
4334 
4336 
4338 
4339 
4340 
4341 
4342 
4343 
4348 
4349 
4350 
4351 
4352 
4354 
4356 
4358 
4360 
4362 
4364 
4366 
4368 
4370 
4400 
4402 
4403 
4404 
4406 
4408 
5000 
5010 
3012 
5100 
5102 
5108 
5110 
5112 
5114 
5116 
5118 
5120 
5122 
5124 
5126 
5128 
9130 
5132 
5134 
5136 
5138 
5140 
5142 
5144 
5146 
5148 
5150 
5152 
5154 
5156 
5158 
5160 
5162 
5191 


PRINT °* x* 
PRINT "Ж 2. THYROTOXICOSIS ж" 
PRINT "Ж ж" 
PRINT “Ж 3. РАбЕТ”5 DISEASE x" 
PRINT "Ж x* 
PRINT *ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 
CALL - 198: UTAB 22 

POKE - 1636850 

PRINT "PRESS THE KEY CORRESPONDING TO YOUR 

IF A$ = "1" THEN GOTO 4348 

IF A$ = "k" THEN GOTO 50 

PRINT "INCORRECT": GOTO 4350 

PRINT "CORRECT" 


CHOICE.': GET 


R=R+1 


FOR I = 0 TO 1000: NEXT I 
IF R > 2 THEN GOTO 4400 

HOME 

PRINT 
CALL 

PRINT 
CALL 

PRINT 
CALL - 922 

PRINT °MATERIAL. ° 

FOR I = O TO 1000: 
GOTO 4000 

HOME 


*YOU HAVE NOT SCORED WELL ENOUGH" 

- 922 

*TO CONTINUE ON TO NEW MATERIAL." 

- 922 

"PAY CLOSE ATTENTION TO THE LECTURE" 


NEXT I 


PRINT 
CALL 
PRINT 


‘YOU HAVE SCOREI WELL ENOUGH ТО" 
- 922 
"CONTINUE ON TO NEW MATERIAL." 


FOR I = 0 TO 1000: NEXT I 
RETURN 
REM TESTING FOR HYPERCALCEMIA 


SR = 179:5Р = 236 


GOSUB 10000 
REM FIRST QUESTION 


R = 0: HOME 
UTAB 6 

PRINT  *xokpoolotololoooooloooloroololololololoroololoroloioolololoore* 
PRINT “Ж ж“ 
PRINT “Ж WHAT ARE THREE METHODS CURRENTLY ж" 
PRINT “Ж ж 
PRINT “Ж USED TO MEASURE THE TOTAL SERUM Ж" 
PRINT "Ж ж" 
PRINT “Ж CALCIUM CONCENTRATION? x" 
PRINT “Ж x" 
PRINT "ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ OOOO OOOO OOK " 
CALL - 922 

РОКЕ - 1636870 

CALL - 198: INPUT *1.*j61$ 

GOSUB 5900 

POKE - 16368,0 

CALL - 198: INPUT '2.';42$ 

GOSUB 5920 

POKE - 1636870 

CALL - 198: INPUT '3.'$63$ 

GOSUB 5930 


FOR I = 0 TO 1000: NEXT I 
IF R« 2 THEN GOTO 5191 


HOME 

PRINT "YOU HAVE SCORED WELL ENOUGH TO" 
CALL ~ 922 

PRINT "CONTINUE ОМ TO NEW MATERIAL." 
РОК I = O TO 1000: NEXT I 

RETURN 

HOME 


A$ 
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5172 
5193 
5194 
5196 
5197 
5198 
5900 


5902 


5906 
5908 
5910 
5912 
5914 
5914 
5917 
5918 
5919 
5920 
5922 
5923 
5924 
5925 
5926 
5927 
5928 
5929 
5930 
5932 
5933 
5934 
5935 
5936 
$937 
5950 
5952 
5955 
5960 
5962 
5964 
5966 
6000 
6010 
6012 
6100 
6102 
6108 
6110 
6112 
6114 
6116 
6118 
6120 
6122 
6124 
6126 
6128 
6130 
6132 
6134 
6136 
6138 
6139 


PRINT "YOU HAVE NOT SCORED WELL ENOUGH": CALL - 922 
PRINT "TO CONTINUE ОМ TO NEU MATERIAL.": CALL - 922 
PRINT "PAY CLOSE ATTENTION ТО THE LECTURE’: CALL - 922 
PRINT 'MATERIAL." 

FOR I = O TO 1000: NEXT I 

GOTO 5000 


В1$ = "ATOMIC ABSORPTION'?B2$ = “ATOMIC ABSORPTION SPECTROPHOTOMETER 


*"$B3$ с 'SPECTROPHOTOMETER" 


B4$ = *'COLORIMETER':B5$ = 'COLORIMETRIC METHODS*:BR6$ = "AUTOMATIC TI 
TRATION*':B7$ = "TITRATION" 


IF А1% = °x“ THEN GOTO 50 
IF A1$ = B1$ THEN GOTO 5960 
IF 61$ = B2$ THEN GOTO 5960 
IF 41$ = B3$ THEN GOTO 5960 
IF 61$ = B4$ THEN GOTO 5960 
IF 41$ = B5$ THEN GOTO 5960 
IF 41% = Bó6$ THEN GOTO 5960 
IF A1$ = R7$ THEN GOTO 5960 
GOTO 5950 

IF A2$ = В1% THEN GOTO 3960 
IF 42$ = B2$ THEN GOTO 5960 
IF 62% = B3$ THEN GOTO 5960 
IF 42% = B4$ THEN GOTO 5960 
JF 62$ = B5$ THEN GOTO 5960 
IF 42$ = Bé$ THEN GOTO 5960 
IF А2$ = B7$ THEN GOTO 5960 
IF 42% = "x° THEN GOTO 50 
GOTO 5950 


IF 43$ = B1$ THEN GOTO 5960 


IF 45% = В2% THEN GOTO 5960 
IF 43$ = B6$ THEN GOTO 5960 
IF 43% = B3$ THEN GOTO 5960 
IF A3$ = B7$ THEN GOTO 5960 
ТЕ 43% = B4$ THEN GOTO 5960 


ТЕ А3% = B5$ THEN GOTO 5960 


CU = PEEK (37): VTAB CU: HTAB 30 


PRINT "INCORRECT" 
RETURN 


CU = PEEK (57): УТАВ СУ: НТАВ 30 


PRINT "CORRECT" 


R=R+1 


RETURN 
REM RANGE OF NORMAL CALCIUM LEVELS 


SR = 24135Р = 308 


GOSUB 10000 
REM FIRST QUESTION 


В = 0: HOME 


VTAB 6 

PRINT *ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ " 
PRINT "Ж . 
PRINT *x THE NORMAL SERUM CALCIUM ж" 
РКІМТ "Ж ж" 
PRINT °x CONCENTRATION RANGES FROM: ж" 
РКІМТ "Ж x* 
PRINT “Ж ж” 
PRINT "ж 1. 88-104 MG/100ML ж" 
PRINT "x ж" 
PRINT °x 2. 8.8-10.4 MG/1OOML ж“ 
РКІМТ “Ж ж" 
PRINT "Ж 3. .88-1.04 MG/1OOML x" 
PRINT “Ж ж“ 


PRINT *"ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 
УТАВ 22: CALL - 198 
POKE - 16368,0 


6140 
6141 
6142 
6143 
6144 
6145 
6146 
6147 
6148 
6150 
6151 
6152 
6154 
6155 
6158 
6160 
6170 
6172 
6174 
6175 
6176 
7000 
7010 
7012 
7100 
7102 


7110 
7112 
7114 
7116 
7118 
7120 
7122 
7124 
7126 
7127 
7128 
7129 
7130 
7134 
7136 
7138 
7140 
7142 
7144 
7146 
7148 
7150 
7191 
7152 
7153 
7154 
7156 
7158 
7160 
7162 
7165 
7200 
7202 
7210 
7212 
7213 
7214 
7218 
7220 


PRINT "PRESS THE KEY CORRESPONDING TO YOUR 
IF А% = "2" THEN GOTO 6145 

IF 6% = "Ж" THEN GOTO 50 

PRINT "INCORRECT" 
GOTO 6147 

PRINT *CORRECT* 
R=R +1 

FOR I = 0 TO 10003 
IF R = 
CALL 
HOME : 
PRINT 


NEXT I 
1 THEN GOTO 6170 
- 922 
PRINT 
“ТО CONTINUE ONTO NEW MATERIAL, "+ CALL 


*YOU HAVE NOT SCORED WELL ENOUGH": 


CHOICE." GET ñ$ 


CALL - 922 


- 922 


PRINT “РАҮ CLOSE ATTENTION TO THE LECTURE"? CALL - 922 
PRINT "MATERIAL." 

FOR I = O TO 1000: NEXT I 

GOTO 6000 

HOME 

PRINT ‘YOU HAVE SCORED WELL ENOUGH TO": CALL - 922 
PRINT "CONTINUE ON TO NEW MATERIAL." 

FOR I = 0 TO 1000: NEXT I 

RETURN 

REM CORRECTION FACTORS 
SR = 314:5Р = 440 

GOSUB 10000 

REM FIRST QUESTION 
R = 0} HOME 

PRINT *ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 
PRINT "Ж ж" 
PRINT “Ж GIVEN THE FOLLOWING RESULTS FORM Ж" 
PRINT “Ж Ж” 
PRINT "Ж THE LABORATORY ANALYSIS, WHAT x* 
PRINT “Ж ж" 
PRINT "Ж WOULD THE CORRECTED CALCIUM ж" 
РКІМТ "Ж x" 
PRINT "Ж CONCENTRATION BE EQUAL TO? x" 
PRINT "Ж ж" 
PRINT “Ж CALCIUM----10.2 MG/100ML x* 
PRINT "Ж ALEUMIN----- 3.5 MG/100ML ж” 
PRINT ‘x NORMAL ALBUMIN--4.5 MG/100ML ж” 
PRINT “Ж x* 
PRINT *ж 1. 11 MG/100ML x* 
PRINT *x ж" 
PRINT “Ж 2. 9,6 MG/100ML ж" 
PRINT "Ж ж" 
PRINT "Ж 3. 13.8 MG/100ML ж" 
PRINT "Ж ж" 
PRINT ОООО ООО I ЖЖ, 
UTAR 22: CALL - 198 

FOKE - 1636870 

PRINT *PRESS THE KEY CORRESPONDING TO YOUR CHOICE. ”! GET A$ 


IF A$ = °k" THEN GOTO 50 
IF ñ$ = *1* THEN GOTO 7160 
PRINT "INCORRECT" 

GOTO 7165 

PRINT "CORRECT" 
R=R+ 1 

FOR I = O TO 1000: NEXT I 
REM SECOND QUESTION 


HOME 

PRINT *ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ " 
PRINT “Ж x" 
PRINT "Ж GIVEN THE FOLLOWING RESULTS FROM ж" 
PRINT " x" 
PRINT "Ж THE LABORATORY ANALYSIS» WHAT ж" 
РКІМТ “Ж ж“ 
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7223 PRINT "Ж WOULD THE CORRECTED CALCIUM ж" 
7224 PRINT “ж ж“ 
7225 PRINT *Ж CONCENTRATION BE EQUAL ТО? ж" 
7226 PRINT "ж ж" 
7230 PRINT “ж CALCIUM----10.2 MG/100ML Жж" 
7232 PRINT "* ALBUMIN----- 5.5 MG/100ML ж” 
7234 PRINT “ж NORMAL ALBUMIN-4,5 MG/100MLX" 
7236 PRINT “Ж ж 
7238 PRINT “ж ж" 
7240 PRINT "Ж 1. 11 MG/100ML ж" 
7241 PRINT “Ж ж" 
7242 PRINT ** 2. 9.6 MG/100ML x" 
7244 PRINT "ж ж" 
7245 PRINT "ж 3. 13.8 MG/100ML ж" 
7250 PRINT "ж ж" 


7252 PRINT *ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 

7254 ЧТАВ 22: CALL - 198 

7255 РОКЕ - 16368,0 

7296 PRINT "FRESS THE KEY CORRESPONDING TO YOUR CHOICE.*: GET A$ 
7257 IF AS = "x" THEN GOTO 50 

7258 IF A$ = "2" THEN GOTO 7290 

7259 PRINT "INCORRECT": GOTO 7295 

7262 HOME 

7264 PRINT "YOU HAVE NOT SCORED WELL ENOUGH*': CALL - 922 
7266 PRINT "ТО CONTINUE ON TO NEW MATERIAL.*: CALL - 922 
7270 PRINT "PAY CLOSE ATTENTION TO THE LECTURE’? CALL -~ 922 
7272 PRINT “MATERIAL.” 

7274 FOR I = 0 TO 1000: NEXT I 

7276 GOTO 7000 

7280 HOME 

7281 PRINT "YOU HAVE SCORED WELL ENOUGH 70%: CALL - 922 
7282 PRINT "CONTINUE ON TO NEW MATERIAL. 
7284 FOR I = 0 TO 1000: NEXT I 
7286 RETURN 

7290 PRINT "CORRECT" 

7292 R = R + 1 

7295 FOR I = O TO 1000: NEXT I 
7296 IF R = 2 THEN GOTO 7280 
7297 GOTO 7262 

8000 REM CASE HISTORY(MILD) 
8010 SR = 446%5Р = 822 

8012 60518 10000 

8100 REM FIRST QUESTION 

8102 RETURN 

9000 REM CASE HISTORY (SEVERE) 
9010 SR = 831:SP = 1100 

9012 GOSUB 10000 

9100 REM FIRST QUESTION 

9102 RETURN 

10000 REM CONTROLLER ROUTINE 
10002 R1 = 0:К2 = 0Р1 = ОР2 = 0 
10010 X = PEEK (771) + 256 k PEEK (772) 
10020 R1 = SR 

10021 R1 = R1 - 256 

10022 IF Кі = 0 THEN GOTO 10030 
10023 IF R1 > O THEN GOTO 10032 
10024 IF Ri < O THEN GOTO 10035 


10030 R2 = R2 + 1: GOTO 10090 
10032 R2 = R2 + 1: GOTO 10021 
10035 R1 = R1 t 256 

10050 P1 - SP 

10051 Рі = P1 - 256 


10052 ТЕР! = 0 THEN GOTO 10080 
10053 IF P1 > 0 THEN GOTO 10082 
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10054 IF P1 < 0 THEN GOTO 10085 

10080 P2 = P2 + 1: GOTO 10090 

10082 P2 = P2 + 1: GOTO 10051 

10085 Pi = P1 + 256 

10090 IF X < SR THEN GOTO 10100 

10092 IF X > SR THEN GOTO 10200 

10094 IF X = SR THEN GOTO 10300 

10100 REM FAST FORWARD 

10110 POKE 773,51: POKE 774»R2 

10112 POKE - 16142,2: CALL 784 

10114 POKE - 14142,0 

10116 GOTO 10300 

10200 REM REWIND 

10202 КЗ = 0:84 = O 

10210 R3 = SR + 2 

10211 R3 = R3 - 256 

10212 IF ЕЗ = 0 THEN GOTO 10220 

10213 IF R3 > О THEN GOTO 10230 

10214 IF КЗ < О THEN GOTO 10240 

10220 R4 = R4 + 1: GOTO 10250 

10230 R4 = R4 +1: GOTO 10211 

10240 R3 = КЗ + 256 

10250 POKE 773,R3! POKE 774»К4 

10252 РОКЕ - 16142»3: CALL 864 

10254 РОКЕ - 14142,0 

10256 POKE 771,К1! POKE 772»К2 

10300 REM PLAY 

10310 РОКЕ 773,P1: РОКЕ 774»Р2 

10320 POKE - 1614271! CALL 784 

10400 REM STOP 

10410 РОКЕ - 16142,0 

10412 РОКЕ - 16142,14 

10420 RETURN 

11000 REM GRAPHIC INTRODUCTION 

11012 HOME : GR : COLOR- 2 

11020 VLIN 0,11 AT Of VLIN 0911 АТ 12: PLOT 1,0: PLOT 2,2: PLOT 3,4: PLOT 
476% PLOT 5581 PLOT 67103 PLOT 7,8; PLOT 8,6: PLOT 9,41 PLOT 10,2: PLOT 
11902 PLOT 6911: REM M 

11025 VLIN 0911 АТ 0: VLIN 0,5 AT 15% НІМ 15925 АТ 51 ULIN 6,11 AT 251 HLIN 
25,15 AT 11: HLIN 15,25 AT 0: REM $ 

11030 VLIN 0,11 АТ 29: VLIN 0,11 AT 39: HLIN 29,39 АТ 113 REM U 

11035 VLIN 28739 АТ O: HLIN 1,10 АТ 28: HLIN 0910 AT 39% REM C 

11040 HLIN 13,23 АТ 28: HLIN 13,23 AT 39: ULIN 28,39 АТ 13% VLIN 28,39 AT 
23: REM 0 

11045 VLIN 28,39 АТ 27: VLIN 28,39 АТ 39: PLOT 28,28: PLOT 29,30: PLOT 3 
0,32: PLOT 31,34: PLOT 32,36! PLOT 33,38: PLOT 33,39: PLOT 34,36: PLOT 
35,34: PLOT 36932: PLOT 37,30: PLOT 38,28: REM M 

11090 GET A$ 

11099 RETURN 

12000 REM MACHINE LANGUAGE ROUTINE 

12010 POKE 768,234: POKE 769,234: POKE 770,234: POKE 771,234: POKE 772,2 
34: РОКЕ 773,234: РОКЕ 774,234: РОКЕ 775,234! РОКЕ 774,234: POKE 777 
‚2343 POKE 778,234: POKE 779,234 

12012 POKE 780,234: POKE 781,234: POKE 782,234: POKE 783,234 

12020 POKE 784,008: POKE 785,072: POKE 786»173: POKE 787»243: POKE 788,1 
923 РОКЕ 789,042: РОКЕ 790,176: POKE 791,250 

12025 POKE 792,173: POKE 793,243: POKE 79491923 POKE 795,042: POKE 794,1 
441 POKE 797,250: POKE 798,238: POKE 799,003 

12030 РОКЕ 800,003: POKE 801,208: POKE 802,003: POKE 803,238: РОКЕ 804,0 
04: POKE 805,003: РОКЕ 804,173: РОКЕ 8077003 

12035 POKE 808,003: POKE 809,205: POKE 810,005: FOKE 811,003: POKE 812,2 
08: POKE 813,228: POKE 814,173: POKE 815,004 

12040 POKE 814,003: POKE 817,205: POKE 818,006: FOKE 819,003: POKE 820,2 
08: POKE 821,220: POKE 822,104: POKE 823,040: POKE 824,096 

12045 POKE 864,008: POKE 865,072: POKE 8665173: POKE 867›243: POKE 86851 
92: POKE 869,042: POKE 870,176: POKE 871,250 
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12050 РОКЕ 872,173: 


POKE 873»243: POKE 874,192: 


44% РОКЕ 877,250: РОКЕ 878»056: 
POKE 881,003: POKE 882,233: 


12055 POKE 880,003: 


41: POKE 885,003: POKE 886,005: 
POKE 889,003: POKE 890,233; 


12060 РОКЕ 8885004: 


411 РОКЕ 893,004: РОКЕ 894,003: 
POKE 897,003: POKE 898,205: 


12065 POKE 896,003: 


03: POKE 901,208: POKE 902,219: 
POKE 905,003: РОКЕ 906,205: 


12070 -POKE- 904,004: 


03: РОКЕ 90972083 РОКЕ 910,211: 


12075 POKE 9125040; 
12999 RETURN 


POKE 913,096 


POKE 879»173 
POKE 887,173 
РОКЕ 895,173 
POKE 903,173 


РОКЕ 911,104 


РОКЕ 
РОКЕ 
РОКЕ 
РОКЕ 


FOKE 


875,042: 
883,001: 
891,000: 
899,005: 


907,006: 


РОКЕ 876,1 
РОКЕ 884,1 
РОКЕ 892,1 
РОКЕ 900,0 


PONE 908,9 


DATA ANALYSIS 
TECHNIQUES 


CURVE FITTING 


The observation of naturally-occurring phenomena is often the 
basic approach of a scientific researcher. Data are recorded as a 
function of some dependent variable (a parameter that is not a 
function of the phenomena that is being observed) and the re- 
searcher then draws conclusions based on the relationship be- 
tween the two variables. The first step that usually occurs after the 
data have been gathered is the posing of question: What mathe- 
matical formula best describes the relationship between the two 
variables? 
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Linear Regression 


The simplest relationship that two variables could have is a linear 
relationship, that is, the dependent variable and the independent 
variable would increase or decrease with a one-to-one relation- 
ship. When a linear relationship occurs, the dependent variable 
can be expressed as a function of the independent variable by the 
following equation: 


у= Ах + B (8.1) 
where A and B are constants | 


The following program will find values for A and B which will 
give the closest agreement between the experimental data and 
Equation 8.1. The technique that will be used is called linear 
regression by the method of least squares. 

Listing 8.1 shows the program with comments. The program 
expects to receive x and y pairs of data. When all the values have 
been entered, the program computes the coefficient for Equation 
8.1 and calculates a coefficient of determination to give a relative 
indication of the goodness of fit. Once the equation has been 
generated, you may predict values of y for given values of x. 


EXAMPLE А forgetful electrical engineering professor 
wakes up one morning and thinks that he might have a fever. A 
search through his medicine cabinet produces an oral thermome- 
ter, but it slips through his fingers and falls to the floor, breaking 
into a thousand pieces. Disgusted with himself, he suddenly 
realizes that he has an outdoor thermometer which is calibrated in 
degrees Fahrenheit, but it is much to big to fit in his mouth. He 
remembers that the skin-temperature biofeedback project he built 
has a thermistor probe, but that it is not calibrated. He suspects 
that the probe is linear and that the relationship between the 
output voltage from the interface and temperature might be equal 
to Equation 8.2. He knows that if he could get a few data points he 
could run the linear regression program and solve for the coeffi- 
cients of the equation: 


Т=ау+Ь (8.2) 


LISTING 8.1 BASIC linear regression routine. 


100 
102 
110 
130 
132 
134 
138 
142 
144 
146 
150 
154 
158 
159 
160 
162 
164 
180 
182 
200 
210 
212 
230 
240 
242 
244 
246 
250 
252 
254 
255 
256 
258 
260 
262 
264 
268 
300 
302 
310 
312 
314 
316 
318 
. 320 
330 
340 
342 
350 
354 
400 
410 
412 
414 
416 
420 
424 
430 
432 
434 


440 
442 


444 
446 
448 
450 
452 


. 496 


458 
460 


REM LINEAR REGRESSION 

REM R. HALLGREN 3-5-81 

HOME 

PRINT "ЖЖЖЖЖЖЖЖЖЖЖЖЖЖАЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ " 
PRINT “Ж x* 


PRINT “Ж YOU WILL INPUT THE PAIRED Ж” 


PRINT "Ж VALUES OF BATA THAT YOU x* 
PRINT "Жж HAVE GATHERED, x* 
PRINT "Ж ж” 


PRINT "Ж УНЕМ ALL рата PAIRS HAVE x* 


PRINT "Ж BEEN ENTERED, PRESS Ж TO x* 
PRINT "Ж CALCULATE THE REGRESSION ж" 
PRINT “Ж COEFFECIENTS, x" 
PRINT “Ж x* 
PRINT “Ж PRESS THE SPACE BAR ж” 
PRINT “Ж TO CONTINUE. x* 


PRINT *ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 
GET K$ 

IF K$ < >” °” GOTO 180 

REM INPUT DATA PAIRS 
J = OK = OSM = 0852 = 0 
N = 1 

HOME 

PRINT "DATA PAIR $*;N 

INPUT "X VALUE °#X(N) 

INPUT "Y VALUE *'$Y(ND 
N= N+ 1 

PRINT **i PRINT **': PRINT "° 

PRINT "PRESS Ж TO CALCULATE” 

PRINT "COEFFICIENTS." 

PRINT 

PRINT "PRESS THE SPACE BAR TO ENTER" 
PRINT *MORE DATA PAIRS.* 

GET K$ 

IF КФ = “Ж” GOTO 300 

IF K$ < > * * GOTO 260 

БОТО 230 

REM CALCALATE REGRESSION COEFFICIENTS 
N=N-1 

FOR I = 0 TON 

J t X(T) 
K + YCT) 
L + (X(I)) ^2 
M + (Y(I)) 7 2 
R2 = R2 + Х(І) Ж Y(I) 

NEXT I 
A = (NXR2-K K J / мж - J 2) 
В = (K—-A*.J) /N 

НОМЕ 

PRINT "Үсш"фА5"Ж X t'$B 

REM COMPUTE COEFFICIENT QF DETERMINATION 
J= аж (R2 = J £ K / N 
MoM-K7" 2/N 
KoM- J 
R22 J ⁄ M 

PRINT 

PRINT "COEFFICIENT OF DETERMINATION = '$;R2 
PRINT 

PRINT "DO YOU NEED TO PREDICT VALUES" 
PRINT "ОҒ Y FOR GIVEN VALUES OF X?" 
PRINT 

PRINT "PRESS Y OR М" 

GET К$ 

IF КФ = "М" THEN END 

IF КФ < > "Y" THEN 444 

REM CALCULATE Y FROM VALUES OF X 
HOME 

INPUT °X="%X 

PRINT °Y="sA k X + B 

GOTO 430 


rac 
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He places both the thermometer and the thermistor probe into a 
sink of warm water and records the following data points: 


V(volts) 1.055 1.044 1.014 .984  .974  .943 
T(F 104 103 100 97 96 93 


Find the values for a and b? What is the coefficient of determina- 
tion? If the professor's temperature is equal to 1.006 volts, should 
he be worried? 


Exponential Regression 


Another common relationship between data pairs is described by 
an exponential curve. When such a relationship exists, the de- 
pendent variable can be expressed as a function of the indepen- 
dent variable by an equation having the following form: 


у = А е? (8.3) 


The following program will find values for А and B which will 
give the closest agreement between the experimental data and 
Equation 8.2. The technique that will be used is called exponen- 
tial regression by the method of least squares. 

Listing 8.2 shows the program with comments. The program 
expects to receive x and y pairs of data. When all the values have 
been entered, the program computes the coefficients for Equation 
8.2 and calculates a coefficient of determination to give a relative 
indication of the goodness of fit. Once the equation has been 
determined, you may predict values of y for given values of x. 


EXAMPLE Realizing a bargain when he saw one, Fred 
bought several large capacitors at the local flea market for a very 
low price. Unfortunately, these capacitors were unmarked. Fred 
knows that a capacitor, being charged through a series resistor 
from a fixed voltage source, will exponentially increase in voltage 
as time increases. By knowing the value of the series resistor, and 
measuring the voltage across the resistor as a function of time, he 
should be able to use the exponential regression program to de- 
termine the value of the capacitance. Using his high school elec- 
tronics text, Fred determines that the voltage across the series 
resistor will be equal to the following equation: 


LISTING 8.2 BASIC exponential routine. 


100 
102 
110 
130 
132 
134 
138 
142 
144 
146 
150 
154 
158 
159 
160 
162 
164 
180 
182 
200 
210 
212 
230 
240 
242 
244 
246 
250 
252 
254 
255 
256 
258 
260 
262 
264 
268 
300 
302 
310 
311 
312 
314 
316 
318 
320 
330 
340 
342 
350 


REM EXPONENTIAL REGRESSION 

REM К. HALLGREN 3-5-81 

HOME 

PRINT "ЖЖЖЖ" 
PRINT "Ж ж" 
PRINT "Ж YOU WILL INPUT THE PAIRED Ж" 
PRINT “Ж VALUES OF DATA THAT YOU ж" 
PRINT *Ж HAVE GATHERED. ж" 
PRINT "Ж ж" 
PRINT "Ж WHEN ALL DATA PAIRS HAVE Ж" 
PRINT "Ж BEEN ENTERED? PRESS X TO Жж" 
PRINT "Ж CALCULATE THE REGRESSION ж" 


PRINT "Ж COEFFECIENTS. ж" 
PRINT "Ж ж“ 
PRINT “Ж PRESS THE SPACE BAR ж 
PRINT "Ж TO CONTINUE, x* 


PRINT "ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖАЖЖЖЖЖЖЖЖЖЖЖ° 
GET K$ 

IF K$ < >" * GOTO 180 

REM INPUT DATA PAIRS 
J = (К = O&M = OFR2 = O 
N = 1 

HOME 

PRINT “DATA PAIR "$N 

INPUT °X VALUE '$;X(N) 

INPUT "Y VALUE "#YCN) 
N=N +1 

PRINT 

PRINT "PRESS ж TO CALCULATE” 

PRINT ‘COEFFICIENTS. ° 

PRINT 

PRINT “PRESS THE SPACE BAR TO ENTER" 
PRINT "MORE DATA PAIRS.” 

GET K$ 

IF K$ = "xk" GOTO 300 

IF КФ < >" * GOTO 260 

GOTO 230 

REM CALCALATE REGRESSION COEFFICIENTS 
N2N-1 

FOR I = 1 TON 

Y(1) = LOG (Y(1I)) 
J* Jt XI? 
K = K + YCI) 
Lek + (X(I)) 7 2 

M=M + (Y(1)) 7 2 
R2 = R2 + ХХІ) Ж УСТ) 

МЕХТ 1 
В = (NX R2- K* .D/ (N KL —- J” 2) 
A= (K - B J) Z N 

HOME 

PRINT *B="9B 

PRINT "A="; EXP (A) 

REM COMPUTE COEFFICIENT OF DETERMINATION 

= Bx (R2 - J k K / М) 


PRINT "COEFFICIENT OF DETERMINATION = *#R2 


PRINT ‘DO YOU NEED TO PREDICT VALUES" 
PRINT “OF Y FOR GIVEN VALUES OF x?" 


PRINT "PRESS Y OR N* 
GET К% 
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LISTING 8.2 (Continued) 


446 IF K$ = "М" THEN END 

448 ТЕ K$ < > "Y" THEN 444 

450 REM CALCULATE Y FROM VALUES OF X 
452 HOME 

456 INPUT *Tz*;X 

458 PRINT "У:%) EXP (A) Ж EXP (B k X) 
460 GOTO 430 


V = Ee ЕС 

where V = resistor voltage (volts) 
Е = battery voltage (volts) = 5 
В = resistance (ohms) = 1000 
C = capacitance (farads) 
+ = time (seconds) 


(8.4) 


Getting out the high speed A/D converter that he built in Chapter 
3, Fred gets ready to prove to himself that the capacitors really 
were a bargain. Fred sets the sampling rate at one sample per 
second and obtains the following set of data points: 


t 0 1 2 3 4 5 

У 5 19 .7 .25 .109 .042 

Find the values for a and b in Equation 8.4 and calculate the 
capacitance of Fred's capacitor. If he needs ten farads for his 
plasma discharge generator, will he be able to use this particular 
capacitor? 


Fast Fourier Analysis 


The sounds that your ears receive are comprised of many indi- 
vidual frequencies which are summed together to form a complex 
waveform which gives the sound its characteristic quality. It is 
possible to take an arbitrary continuous signal, expressed in the 
time domain, and break it up into a series of individual frequen- 
cies. The magnitude of this spectrum at different frequencies is a 
measure of the frequency content that comprises the original 
signal. The concept of spectrum finds many practical applications 
in many varied disciplines including waveform analysis of music, 
frequency content of muscle voltages, vibrational characteristics 
of mechanical systems, and so on. Figure 8.1 shows a plot, in the 
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FIGURE 8.1 Continuous analog signal plotted in the time domain. 


time domain, of a complex analog waveform. It would be very 
difficult to come to any conclusions regarding the spectral con- 
tent ofthe signal by just visually analyzing it. Figure 8.2 shows the 
same waveform transformed into the frequency domain by a fast 
Fourier transform (FFT). You can easily observe a small d.c. com- 
ponent at the far left of the plot and make the statement that the 
complex waveform contains a single high-frequency signal. In 
fact, Figure 8.1 is just the plot of a 200 Hz sine wave. 

Listing 8.3 shows a program written in Applesoft which 
performs the fast Fourier routine. The program first gets the data 
file that we created with the high speed A/D converter that we 
described in Chapter 3. The FFT routine then mathematically 
separates the complex waveform into the sum of a number of 
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FIGURE 8.2 Signal from Figure 8.1 analyzed 
by the fast Fourier transform and plottedas a 
function of frequency. 


LISTING 8.3 Fast Fourier routine written in BASIC. 


10 REM FFT ROUTINE 

12 REM R, HALLGREN» 11-2-81 

14 REM APPLE II 

20 HOME + UTAB 5 

34 PRINT "ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ * 


36 PRINT "Ж ж 
38 PRINT “Ж HOW MANT POINTS DO YOU WANT ж“ 
40 PRINT "Ж TO PROCESS? ж" 
42 PRINT ‘x ж" 
44 PRINT "x 1. 512 ж" 
46 PRINT "Ж 2. 256 ж" 
48 PRINT “Ж 3. 128 ж” 
SO PRINT “Ж ж" 
52 PRINT "Ж PRESS THE NUMBER CORRESPONDING ж" 
54 PRINT "Ж TO THE CHOICE. ж" 
Sé PRINT “Ж ж" 


S8 PRINT "ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ t 
60  INPUT К$ 


62 IF K$ = "1" THEN L = ỌN = 512; GOTO 80 
64 ТЕ K$ = "2" THEN L = 8:N = 256: GOTO 80 
66 IF K$ = '3* THEN L = 7:N = 128: GOTO 80 


68 GOTO 60 

80 GOTO 200 

200 REM DATA FORMATTER SUBROUTINE 

201 T = O 

202 DIM Х1(М): DIM Х2(М)ФР = 3.1415%9%Х = 24830 
203 D$ = **: PRINT D$;*'RELOAI! DATAC$1100):6$6100* 
204 HOME : VTAB 10 

206 PRINT "DATA IS BEING FORMATTED* 

220 FOR Z =0 TON ~ 1 

222 X = X + 2 

224 М1 = PEEK (X)8V2 = PEEK (X + 1) 

230 IF V1 » 1 THEN GOTO 300 

250 Хі(2) = - (511 - (V1 Ж 256 t 990) / 100 
270 NEXT Z 

280 GOTO 640 

300 Х1(2) = ((V1 - 2) ж 256 + 92) / 100 

320 GOTO 270 

640 REM SCALE INPUT TIME FUNCTION 

642 РОК Z = 0 TON- 1 

650 X1(Z) = X1(Z) / N 

660 NEXT Z 

670 REM FFT IN-PLACE ALGORITHM 

675 HOME : VTAB 10 


676 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 


820 


830 
840 


850 

860 

870 

880 

760 

962 

963 

966 

970 

975 

980 

985 

990 

1000 
1005 
1010 
1012 
1015 
1020 
1021 
1022 
1025 
1030 
1040 
1050 
1051 
1052 
1055 
1056 
1057 
1058 
1092 
1093 
1100 
1105 
1110 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 


PRINT * FFT CALCULATION IN PROCESS 
11 = М/И 2:12 = 119 = 2 Kk F / N 

FOR I = 1 TOL 

13 = 0:14 = 11 


FOR К = 1 TO I2 
X= INT (I3 / I1) 
GOSUB 1300 


= Y 
21 = COS (V ж IS) 
= - SIN (V Ж ІЗ) 
FOR М = I3 TO I4 - 1 
AL = X1(W):+A2 = X2(M) 
Ві = Zi Ж ХІМ + 11) - Z2 Ж X2(M + I1) 
B2 = Z2 k X1(M + 11) + Z1 Ж X2(M + I1) 
X1(M) = АЕ + В1:Х2(М) = A2 + B2 
X1(M + 11) = A1 - B1:X2(M + 11) = AZ ~ B2 
МЕХТ М 
I3 = 13+ 2 11314 = 14 + 2 X 11 
NEXT К 
11 = I1 / 2:12 = 2 k I2 
NEXT I 
REM OUTPUT RESULTS 


HOME 2 УТАВ 10: PRINT "PLOT ON DIGITAL?*'? INPUT КФ 
IF K$ = "М" THEN GOTO 970 
IF k$ < > "Үе THEN GOTO 962 
FOR І = О TO 160: READ К: POKE ( - 32800 + І),К: NEXT I 
B = O 
HOME : УТАВ 10: PRINT " CALCULATION IN PROGRESS" 
FOR Z = O TON/2 
X = Z 
GOSUB 1390 
IF ХЗ > Б THEN В = X3 
C = 0 
NEXT Z 
IF К$ = 'N* THEN GOTO 1020 
HOME $ УТАВ 10! PRINT “LOAD PEN AND PRESS ANY KEY"? GET AS 
HGR2 ; HCOLOR- 3 
FOR Z = 0 TO N / 2 
IF Z > 900 THEN GOTO 1110 
X =Z 
GOSUR 1390 
X4 = INT (Sé k X3 / B) 
К = INT (10 X X4) 
IF К > 600 THEN К = 600 
IF КФ = "N" THEN GOTO 1093 
CALL - 32646: FOR I = O TO 10: NEXT I 
FOR J = 1 TO К: CALL ~ 32712: NEXT J 
CALL - 32653 
FOR J = 1 TO К: CALL ~ 32681: NEXT J 
CALL - 32695 
GOTO 1500 
NEXT Z 
FOR I = O TO М%Х2(1) = 0: NEXT I 
END 
REM SCRAMBLER SUBROUTINE 
Y = ONI = N 
РОК W = 1 TOL 
№ = м/и 2 
IF X < N1 THEN GOTO 1360 
Y = Y+ 2 ” W - 1) 
X = X - NI 
NEXT W 
RETURN 
REM MAGNITULĽE(X3) SUBROUTINE 
GOSUB 1300 
ХЗ = SAR (Х1(Ү) ^ 2 + X200 ^ 2) 
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LISTING 8.3 (Continued) 


RETURN 
REM VIDEO PLOT 


1410 
1300 
1502 
1504 
1506 
1508 
1599 
10000 
10002 
10004 
10006 
10008 
10010 
10012 
10014 


т 


РОК К 
HPLOT 


20 TO (K / 4) 
Т, (155 - К) 


NEXT R 
=T+1 
GOTO 1100 


DATA 
ВАТА 
ВАТА 
DATA 
DATA 
DATA 
DATA 
DATA 


16099 ¥24972917697 7169909141 2209 91929144759169 7191417209 9192916993 
72,169,4,74,144,253,104,233,1,208,245,104,106;1356,208,223,160,2,169 
1,141,209,192,169,3,72,169,4,74,144,253,104,233,1,208,245,1346,208 
2395»96»0»0»0»050»0»0»050»050»0»0»5050»050»5020»050»0505050»0:0»0 
72»8»1695112»32»224»127»40»5104»96»72»851695113»76»560»128»72»8»169 5114 
76,60,128,72,8,169,115,76,60,128,72,8,169,116,76,60,128,72,8,169,117 
76,60,128,72,8,169,118,76,60,128,72,8,169,119,76,60,128,72,8,169, 121 
76›60,128,72,8,169,122,746,60,128 


discrete frequencies, and plots the magnitude of each frequency 
component. The frequency spacing between each component is a 
function of the digitization frequency and the number of points 
that you have in the routine process. You then have to decide how 
many of those points you wish to process with the FFT. Using a 
larger number of points results in greater resolution but requires 
more processing time. For example, 512 points requires 16 min- 
utes, 256 points requires 8 minutes, and 128 points requires 4 
minutes. You can calculate the frequency spacing between each 
component with Equation 8.5. 


Е = 1/(t*N) Hz 


where Е = the distance between each component 
DE (8.5) 
t = the time increment between samples 
М = the number of processed points 


If we were sampling an input signal at a rate of 1000 Hz, then t 
would be equal to .001 seconds. If we then decided to process 512 
points, we would expect the distance between components to be 
equal to 1.95 Hz. This means that if we had digitized a 19.5 Hz sine 
wave, we would expect to see a peak in the magnitude of the 
output at the 11th point (the magnitude of the d.c. component 
occupying the first point). 

You can do several things to enhance the utility of these 
routines: 


1. Write programs to plot both the complex waveform and the Fourier 
transform with the digital plotter developed in Chapter 5. 


FIGURE 8.3 Fourier 
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2. Convert the BASIC program shown in Listing 8.3 into a machine 
language routine to greatly decrease the time spent processing the 
data. 


To help assure yourself that you have entered the program cor- 
rectly, I have included a simple program which generates a per- 
fect 100 Hz sine wave and stores it in memory. After loading the 
main program, key in the following BASIC statements. 


80 REM 

90 Y=24830:T=0 

91 FOR Z=0 TO N-1 

92 Y= Y+ 2:X= 1+ SIN(2*3.14159*100*T) 
94 Т=Т+7.8125Е- 4 

95 РОКЕ У, 3:POKE (У+1),100*Х 

96 МЕХТ 7 

203 REM 


If everything is working correctly, you should observe a peak in 
magnitude at the eleventh output. 

The following four figures show the results of taking the FFT 
of 512 points of data from audio data digitized at a rate of 1000 
samples per second. Figure 8.3 shows the spectrum of a violin 
solo. Notice how there are very distinct harmonics displayed. 
Figure 8.4 shows the spectrum of the speaking voice of a male 
radio announcer. Notice how the spectrum is rich in low fre- 
quency content. Figure 8.5 shows the spectrum of the singing 
voice of a popular singer who was holding a high clear note when 
the data was collected. 


FIGURE 8.4 Fourier FIGURE 8.5 Fourier 
transform of the voice of transform of the voice of 


transform of violin solo. a male radio announcer. a female singer. 
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АРРЕМЫХ А: 
CONSTRUCTION 
TECHNIQUES 


Before you start to build, you should have some feeling for the 
construction options that are available to you. This will allow you 
to use appropriate construction techniques for specific circuits 
that you will be building. I am not going into a lot of detail 
concerning the actual construction process involved in each op- 
tion, since this has been covered in detail in other publications. 
However, based on my personal experience, I will summarize the 
advantages and disadvantages of each process. 

If you need to build ten or more boards having the same 
circuit configuration, you might want to have a custom circuit 
board constructed. There are usually a number of small com- 
panies in any large metropolitan area which can perform this 
service. Costs will run about $500 for the circuit board layout and 
about $20 apiece for each circuit board. The cost is directly pro- 
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FIGURE A.1a Example of custom circuit board construction, front view. 


portional to the complexity of the circuit design. Disadvantages 
include waiting about four weeks for the boards to be fabricated, 
the cost of fabrication, and the loss of modification flexibility. 
Advantages include decreased construction time for each circuit, 
increased reliability of operation, and an obviously professional 


appearance. Figures A.1a and A.1b show examples of this type of 
construction. 


FIGURE A.1b Example of circuit board construction, rear view. 
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If you need to construct a single circuit that is very simple, I 
would recommend Vector board and push-in, solderable terminal 
type construction. Figure A.2 shows an example of this type of 
construction. Vector board (Vector Electronics Company, Inc., 
Sylmar, California 91342), Vector pins, and a tool to insert the 
pins can be purchased at your local electronics store. It is the least 
expensive method of construction and I have used it with success. 
However, this type of construction sometimes results in undesir- 
able oscillations caused by output signal wires being in close 
proximity with input signal wires. Another possible problem is 
the introduction of high frequency noise, generated by the digital 
circuitry, into power supply lines. I would discourage its use with 
DIP packaged integrated circuits unless you are quite proficient 
with a soldering iron. 

If you are adventurous, and have an abundance of time, you 
should consider laying out the foil pattern and then etching your 
own circuit boards (Circuit Board Etching, M. W. Houser, Davis 
Publications, New York, New York 10017, January 1981). This 


FIGURE A.2 Example of Vector board 
construction. 
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process is limited to relatively simple circuits, but the finished 
boards are inexpensive to produce and will result in a circuit 
having mechanical properties which are superior to hand-wired 
boards. 

If the circuit is complex or if you are planning on doing 
several construction projects over a period of time, I would rec- 
ommend that you develop your capability to produce wire- 
wrapped circuits (Wire-Wrapping Techniques, W. Sikonowiz, 
Davis Publications, New York, New York 10017, January 1981). 
This type of construction is fast and economical, and it results in 
circuits that will perform reliably in a variety of applications. 
Figures A.3a and A.3b show examples of this method of construc- 
tion. Wire-wrapping allows the builder to use point-to-point con- 
struction techniques and still obtain a circuit board which is 
rugged enough to be put into practical use. Construction proceeds 
relatively fast and corrections can be easily made. While there is 
an initial investment, the individual cost of a finished board is 
comparable to other techniques. 

Putting your finished circuit into a cabinet adds a great deal 
to the personal satisfaction that you will receive from completing 


FIGURE A.3b Example о! wire-wrap construction, rear view. 


the project. Plastic boxes are very easy to work with and are quite 
adequate for the types of projects that I will be describing. Figures 
A.4a and A.4b show examples of this type of finished construc- 
tion. 


FIGURE A.4a Example of finished product. 


FIGURE A.4b Example of finished product. 
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APPENDIX В: 
OPERATIONAL AMPLIFIER 
THEORY 


The operational amplifier (op amp) will be one of the most impor- 
tant tools you will have at your disposal when it comes time to 
interface some type of transducer to an A/D converter. Since most 
operational amplifiers have one output and two input ports, we 
can consider them to be a general three-port device. Their basic 
function is to amplify the difference between the two signals 
which are applied to the input ports. The amplified difference 
then appears at the output port. The relationship between the 
output voltage and the input voltages is dependent on the sign 


and magnitude of feedback which is supplied by the output to one 
or more ofthe inputs. Asa result of feedback, we can configure our 


circuit to add, subtract, multiply, integrate, differentiate, com- 
pare, rectify, filter, and perform current-voltage conversion. 
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There are three general characteristics of the operational 
amplifier that make it a useful tool: 


1. Ithas very high gain from either of the two input ports to the output 
port. 

2. The input impedance at each input port is very high and the output 
impedance is very low. 

3. It has very low gain when the same signal is applied to both input 
ports at once. Consequently, the amplifier is most sensitive to the 
voltage difference between the two inputs rather than the voltage 
difference between either input and ground. This allows the 
amplifier circuit to disregard many signals which would be classi- 
fied as noise and to respond only to the signal coming from the 
transducer. 


Since many of our projects deal with small magnitude signals, we 
will need to provide amplification, and possibly filtering, to in- 
crease our ability to resolve and accurately display these signals. 
The operational amplifier will allow us to combine a fifty-cent 
integrated circuit with a knowledge of Ohm's law, and become 
proficient at designing small signal amplifiers for our interface 
projects. 


FIGURE B.1 Op-amp circuit symbol. A voltage at V4, the 
inverting input, is greatly amplified and inverted to yield an 
out-of-phase output at Vo. А voltage at Vo, the noninverting 
input, is greatly amplified to yield an in-phase output at Vo. 


Figure B.1 shows the operational amplifier circuit symbol. 
You should notice the two input terminals and the single output 
terminal. One of the input terminals has a negative sign associated 
with it (the inverting input) and one of the inputs has a positive 
sign associated with it (the noninverting input). There are two 
basic rules which we will be using to design and analyze op amp 
circuits: 
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1. When the op amp is operating in a linear region, the two input 
terminals are at the same voltage. 
2. There can be no flow of current into either of the input terminals. 


Armed with these two constraints we can begin our discussion of 
specific amplifier circuits. 


INVERTING AMPLIFIER 


Figure B.2 shows a basic inverter circuit which is widely used for 
instrumentation purposes. The input impedence for this config- 
uration is approximately equal to the magnitude of resistor Қ. 
Note that a portion of the output signal is fed back through resistor 
R, to the negative input of the op amp. Reviewing the two rules 
which we have previously discussed, we know that both the 
positive and the negative inputs are at the same potential, which 
for this circuit is equal to 0 volts. We also know that the current 
flowing into or out of each of the two input terminals has to be 
equal to 0. Using Kirchhoff's current law we can write the follow- 
ing equation: 


1+1=0 (В.2а) 


FIGURE B.2 Simple resistive inverting amplifier. A voltage at М, the 
inverting input, produces a voltage at the output, V,, which is a 
function of the values R; and Ry. 


R 
E f 
Vo = [НЧ Vi 
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Using Ohm's law we can write the following two equations: 


V,- RL-0 (B.2b) 
V,- Ri-0 (B.2c) 


Solving equation B2.2b for L, solving equation B2.3a for L, and 
then substituting these two values back into equation B2.2a, we 
obtain equation B.2d: 


(V,/R)+ (V,/Rj)- 0 (В.24) 
The voltage gain (K) for the circuit can then be written as follows: 
K= VJVj,7 —(R/R) (B.2e) 


Figure B.3 shows a modification to the basic inverter circuit 
which allows us to add several input voltages together. Remem- 
bering our two basic rules, we know that the inverting and the 
noninverting input terminals are at the same potential and that 
there can be no current flowing into or out of either of these 
terminals. Summing currents at the inverting terminal we obtain 
the following equation: 


1+1+1+1=0 (В.За) 


FIGURE В.З Simple resistive inverting summing amplifier. 
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Using Ohm's law we can write equations for these currents in 


terms of the input and output voltages. 


L2 V.R, 
L= УК, 
L= У.К, 
[= У 


(B.3b) 
(B.3c) 
(B.3d) 
(B.3e) 


Substituting these equations back into equation B.3a we get equa- 


tion B.3f: 


(У,/К, )+ (УВ, )+ (V/R;)- (УВ) 0 


(B.3f) 


Solving for the output voltage, expressed as a function of the input 
voltages and the resistance values, we get the following equation: 


+ V,7 (R/R,)V,+ (R/R,)V,+ (R/R;)V, 


NONINVERTING AMPLIFIER 


(В.39) 


Figure B.4 shows an amplifier configuration which is sometimes 
called a voltage follower because the output voltage is the same 
polarity as the input voltage. This circuit is useful because the 


FIGURE B.4 Simple resistive noninverting amplifier. A volt- 
age at М, the noninverting input, produces at the output Vo. 
which is a function of the values R, and Ri. 


Re 
Vo = Bis Vi 
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input impedance is extremely large; therefore, the circuit does not 
draw much current from the circuit that is attached to its input. 
Again we have a circuit that has a portion of the output signal fed 
back to the inverting input through the feedback resistor К,. The 
two rules which we have discussed state that the voltage at the 
inverting input will be equal to the voltage at the noninverting 
input, and that there will be no current flow into or out of either 
input terminal. Using Ohm's law we can write an expression 
which will relate the magnitude of the voltage at point a to the 
output voltage Vo. 


V,7 V,R/(R-- Ry) (B.4a) 


We know that У, = V,, and if we substitute this back into equation 
B.4b we get the following equation: 


Vi= WR/I(R + Ry) (B.4b) 


By rearranging this equation we can obtain an expression which 
gives the voltage gain of the circuit as a function of the resistors R, 
and R,. 


K= V,/V,=1+ RJR, (B.4c) 
By looking at equation B.4c, you should be able to predict what 


happens to the voltage gain as a resistor R, becomes very large. 
Figure B.5 shows a circuit diagram where this resistance has been 


FIGURE B.5 Simple unity gain voltage follower. 


Vo =Ni 
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set equal to infinity (open circuit). This is a special circuit called 
the unity-gain voltage follower. Remembering that the voltages at 
the two input terminals have to be equal to one another, we can see 
that the output voltage is forced to be equal to the input voltage. 
This circuit is often used to provide impadence transformation 
from very high at the input to very low at the output. 


DIFFERENTIAL AMPLIFIER 


We found that we could add two or more signals together by using 
the inverting summing amplifier configuration. We will now take 
a look at a circuit which will allow us to subtract one signal from 
another. Figure B.6 shows an operational amplifier used as a 
differential amplifier. One of the advantages to using this circuit 
is that the circuit subtracts voltages applied to both inputs there- 
fore producing an output only when the input voltages are not 
equal. This is useful when we have a balanced input circuit and 
need to reduce noise which is common to both of the inputs. 
Remembering that the voltage at the inverting input has to equal 
the voltage at the noninverting input and that no current can flow 
into or out of either terminal, and using Ohm's law, we can write 


FIGURE B.6 Simple resistive differential amplifier. This circuit is con- 
figured so that the output voltage, Vo, is equal to the difference of the 
input voltages, V, and V2, multiplied by a constant which is a function 
of the resistors Аз and В.. 


Vo = É [n] 
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an equation for the voltage at point a in terms of the input voltage 
VA: 


У,= У, «(В+ Ry) (B.6a) 


This voltage has to be equal to the voltage at point b. We also know 
that the following relationship exists between current I, and cur- 
rent L: 


1+1=0 (B.6b) 


We can write the following equations to relate the output voltage 
to the input voltages: 


1,=(V.— VIR, (B.6c) 
„= (%— WR, (B.6d) 
Substituting equation B.6a into equations B.6c and B.6d and then 


substituting these equations back into equation B.6b gives the 
following result: 


W.IR,= (У,— V;)(/R;) (B.6e) 


Rearranging this equation gives us an equation which relates the 
output voltage to the input voltages as a function of the resistance 
values. 


Vo= (ВВ (У, - V.) (B.6f) 


INTEGRATING AMPLIFIER 


The integrating amplifier (see Figure B.7) is a circuit whose gain 
varies as a function of frequency making it different from the 
circuits we have previously considered. Detailed analysis would 
show that the output voltage will be related to the magnitude and 
the frequency of the input voltage by the following equation: 


УМ = – 1/(wRC) (B.7a) 
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FIGURE B.7 Simple integrating amplifier. The time constant of this 
circuit is directly related to the product of resistor R and capacitor 
C. 


This equation can also be written as a function of time; this may 
actually be a more familiar representation for the majority of 
readers: 


t, 
V,= —1RC Í V, d, (B.7b) 
t 


Figure B.8 shows an integrator which has had a resistor added in 
parallel with the capacitor. This provides us with a circuit, called 
a low pass filter, which is useful for attenuating high frequency 
noise. Аз with the integrator, the frequency response is given by 
the ratio of feedback to input impedance. However, at low fre- 
quencies the circuit behaves like an inverter because the impe- 
dance of capacitor C is large when compared to the resistor R,. 
At higher frequencies, the circuit behaves like an integrator be- 
cause the impedance of C becomes smaller than R,. Equation B.8a 
expresses the gain of this circuit as a function of frequency: 


V,/V,=(R,/R,)(w/R,C)(1/1+ wiR,C) (B.8a) 


At low frequencies this equation reduces to the following equa- 
tion which will be recognized as the equation for the simple 
inverting amplifier: 


FIGURE B.8 Simple low-pass filter. The low frequency 
gain of the circuit is a function of В, and Ro. The Зчь 
corner frequency is determined by the values of 
capacitor C and resistor Ro. 


Vo/Vi= – (К/К) (B.8b) 


At high frequencies equation B.8a will reduce to equation B.7a. 
When a circuit designer needs to limit the frequency response of a 
wide-band amplifier, there is no need to add a separate stage but 
only to add the correct size capacitor to the existing circuit. 
There are many operational amplifiers which you could use 
in the circuits which we have discussed. An op-amp which is 
commonly available, low in cost, and easy to use is the 741. This is 
a general purpose device which provides output short circuit 
protection, internal phase compensation, and latch free opera- 
tion. Another device which is readily available is the CA3140. 
This operational amplifier differs from the 741 by having MOS/ 
FET input stages which provide high input impedance. The pin 
configuration for both of these devices is shown in Figure B.9. 


FIGURE B.9 Pin assignment for the 741 and CA3140T operational amplifiers. 


+ V 


NON- INVERTING INPUT 
OUTPUT 


INVERTING INPUT 
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APPENDIX C: 
POWER SUPPLIES 


The widespread availability of three terminal regulators makes 
the design and construction of power supplies for digital and 
analog circuits almost a simple task. In the past, power supplies 
were generally made from a number of discrete components. 
Today, advancements in fabrication techniques related to mono- 
lithic semiconductors have enabled a number of discrete compo- 
nents to be incorporated into a single chip. This has resulted in a 
series of low-cost positive and negative regulators which are 
extremely easy to use, and difficult to abuse. Monolithic voltage 
regulators usually have a series pass transistor power control 
element, a reference source, and current overload protection all 
on the same chip. As a result of this, no adjustments are required 
to set up the output voltage, and it is virtually impossible to 
destroy the regulator. 

Figure C.1 shows a schematic of a + 5 volt power supply that 
can provide up to .5 amperes of current with adequate heatsink- 
ing. 


123 


MC780ST 


+5 


10 uf 


110 VAC 10 vde Tant. 


FIGURE C.1 Positive 5-volt power supply. 


Figure C.2 shows a schematic of a +12 and —12 power 
supply that can provide up to .5 amperes of current with adequate 
heatsinking. 

Once you have constructed either of the supplies, you should 
check to make sure that the output voltage is what you were 
expecting it to be. You should be concerned about the following: 


. Treat the 110-volt line voltage with care. 
. Make sure that the polarity of the filter capacitators is correct. 
. Make sure that the polarity of the diodes is correct. 


. The positive and negative regulators do not use the same pin 
configuration. Be sure that you have used the correct pins for input, 
output, and ground. 


в Wh = 
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MC7812T MC7912T 


S1 
*12 


10 uf 
20 vdc Tant. 


110 VAC 
60 Hz 


10 uf 
20 vdc Tant. 


MC7912T 


FIGURE C.2 Positive 12, negative 12 volt power supply. 
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Amplifiers, see Operational amplifiers 
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for bidirectional serial interface, 98-100 
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demonstration, for HIPLOT, 79-80 
for digitized data stored on disc, 89-93 
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fast Fourier analysis, 147-51 
for high speed converter interface, 64-68 
for HIPLOT Digital Plotter, 81-86 
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Biderectional serial interface, 96-100 
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fast Fourier transform (РЕТ), 146-51 
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Data bus of 6502 microprocessor, 4—8 
in automatic test equipment systems, 74, 77 
in parallel data transfer, 10, 14 
Data lines: | | 
multiplexed, with MC14433 АЛ) converter, 
35-38 
See also specific lines 
DATA READY* status line, 56, 62 


Davis Publications, 154-55 
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Fast Fourier transform (FFT), 146-51 
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definition of, 102 
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BASIC program for, 81-86 
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increasing values of time constant, 81, 87 
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Houser, M. W., 184 
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Low-pass filter, 166-67 


Machine language commands: 
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LDA$COF2, 62 
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LDA# $X, 10 
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STAS$COF 2, 38 
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46 
three-state buffers, 37, 39° 
transfer of data to output latches, 35 
MC14503 three-state buffers, 11-14, 37-39, 62 
Modems, 95-97 
Most significant digit (MSD), 35-37 
Motorola Semiconductor Products, 29 
See also MC14433 A/D converter; MC14503 
three-state buffers 
MSB of AD571 АЛ) converter, 54-55 
Multiplexed data lines, 35-38 
Multiplexer, 59, 60 B 


Neurons, 101-2 
Noninverting amplifiers, 34, 56, 162-64 


Operational amplifiers (op amps), 34-35, 56, 
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for Apple Il/Betamax interface, 121-22 
basic rules with, 159-60 
circuit symbol, 159 
differential, 104, 110, 164-65 
general characteristics of, 159 
integrating, 165-67 
inverting, 56, 57, 160-62 
in isolation of AD571 input signal, 62 
noninverting, 34, 56, 162-64 
Caci Hatar, crystal controlled time base, 59, 61, 
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ical output port circuit diagram, 12 
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Plotting, see HIPLOT Digital Plotter 

PLAY* control line, 119-22 

POKE, see BASIC statements 

Polarity and low speed A/D converter, 29, 37, 38 
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168-70 
Programs, see BASIC programs; Machine 
language routines; Software 
Pulse detector in heart rate monitor, 109-11 
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Rc, seo Clock resistor 
READ BASIC statements, 67 
Reference voltage, 31-33, 104 
Relative system error, 24-28 
Resistive amplifiers, see Operational amplifiers 
Resistive voltage divider network, 34 
Resolution (dR), 24-28, 56-60 

definition of, 26 

number of binary output bits and, 57-60 
REWIND’ control line, 119-22 
RM-300 Auto Search control unit interface 

connector, 119-21 

RS-232-C specification, 5 

connector (DB-25), 5, 6 
RS-232-C to TTL interface, 17-20, 79-80 
R/W” (READ/WRITE*) control line, 6, 8 

in parallel data transfer, 12-14 


Sampling кейш ion d (Ев), 24-25, 28-29 
crystal controlled oscillator for measurement 
of, 59, 61, 63 
fast Fourier analysis, 146-51 
See also Digitized data 
Serial data transfer format, 14-20 
asynchronous, 15-16 
definition of, 4, 5, 15 
SERIAL INPUT line, 97 
Serial-to-parallel conversion, 15, 17-20 
741 operational amplifier, 167 
Sikonowitz, W., 155 
6501 microprocessor, 5 
6502 machine code, 2 
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Machine language routines 
6502 microprocessor: 
architecture of, 5-7 
clock system of, 6-7 
peripheral-board connectors of, 5, 7-9 
pin configuration of, 6-7 
speed of, and conversion decoding and 
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Skin temperature biofeedback monitor, 102-8 
analog circuitry for, 103~4 
diagrammatic representation of, 106-8 
software for, 104-6 
SLO-320, seo Sony Betamax SLO-320 
Software: 
BASIC program for HIPLOT, 81-86 
Betamax/Apple П demonstration, 127-40 
Betamax/Apple П testing, 122-24 
for bidirectional serial interface, 98-100 
for D/A converter, 74-75 
demonstration for HIPLOT, 79-80 
exponential regression, 144—46 
for fast Fourier analysis, 147-51 
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for high speed A/D converter interface, 64-69 
for incandescent lamp test, 74-75 
linear regression, 142-44 
for low speed A/D converter interface, 38-51 
for plotting digitized data on disc, 69-93 
for RS-232-C to TTL conversion, 17-20 
for skin temperature biofeedback: 
monitor, 104-6 
switch stetus, 22, 25 
videotape location count, 124-27 


Sony Betamax SLO-320 videocassette recorder, 
119-40 
BASIC demonstration routine, 127-40 
machine language routines, 121, 12427 
op amp for, 121-22 
schematic for, 120-21 
storage of pro on videotape, 121-22 
testing procedure, 122-24 
Space, detinition of, 5 
Spectrum and Fourier transform, 146-51 
START bits, 15, 16 
Status lines: 
for Apple ШВеіатах interface, 119-20 
See also specific lines 
STOP bits, 15, 16 
STOP* control lines, 119-20 
STROBE control line, 8 
Successive-approximation conversion scheme, 
54-55 
See also AD571 A/D converter 
Switch status, 22-25 
Temperature monitor, see Skin temperature 
ofcedback monitor 
Test equipment systems, 72-77 
Thermistor: 
in biofeedback skin temperature: 
monitor, 104—8 
definition of, 104 
in linear regression example, 142-44 
Three-state buffers, 11-14, 37-39, 62 
Time base oscillator, crystal controlled, 59, 
61, 63 
Time constant in plotting, increasing values of, 
81, 87 
Timing signal in Apple Il/Betamax interface, 
119-21 
Transducers, definition of, 22-24 
Truth table on multiplexed data lines, 38 
TTL to RS-232-C interface, 16—18, 79-80 
2N3904 transistor, 63 
Two-phase clock system, definition of, 6 


Underrange, 37 
Unipolar vs. bipolar mode with AD571, 52-54 


Variables, see Data analysis techniques 
Vector board, construction with, 154 
Vector notations for HIPLOT Digital Plotter, 


80-81 
Video playback device, 117—40 
in computer-assisted instruction, 117-19 
interface with Apple II, see Sony Betamax 
SLO-320 
Video terminal, Apple П as, 95-100 
Voltage: 
analog, 26 
EIA standards, 5 
maximum range (Vmax), 26 
reterence, 31-33, 104 
RS-232-C interface, 16-18 
in sampling, 28-29 
See also Input voltage; Output voltage 
Voltage divider circuit, 34 
Voltage followers, 162-64 
Voltage regulator, 168 
AD580, 37-39 
in heart rate biofeedback monitor, 110 
in skin temperature biofeedback monitor, 
103, 104 


Waveforms: 
analog, digital generation of, 72 
continuous vs. discrete (figure), 27 
in fast Fourier analysis, 146-51 
sampling and, 28 
See also Sampling frequency 
Wire-wrapping Techniques (Sikonowitz), 155 


28000, 4 
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